minie/test6.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module test6;

import system;

var
	s : array[64] of char;
	len : integer;
	c : char;
	i : integer;
	
begin
	system.readline( s );
	len := length( s );
	system.writestring( "String: " );
	system.writeline( s );
	system.writestring( "Length: " );
	system.writeinteger( len );
	system.writeline( "" );
end