minie/test9.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

module test9;

import system;

var
	len : integer;
	i : integer;
	s : array[64] of char;
	d : array[10] of char;
	c : char;
	
begin
	i := 0;
	len := length( s );
	c := system.readchar( );
	while ( i < len ) and ( c <> char( 0 ) ) do
		s[i] := c;
		i := i + 1;
		c := system.readchar( )
	end;
	s[i] := char( 0 );
	d := s;
	system.writeline( d );
end