minie/test9.e


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

module test9;

import system;

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