{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program class(input,output);
var
name1:string;
count:Integer;
begin
count:=0;
writeln ('Enter name');
readln(name1);
writeln('your enter: ',name1);
while (name1<>'zzz') do
begin
count:=count+1;
writeln ('Enter name');
readln(name1);
writeln('your enter: ',name1);
end;
writeln('press enter for exit ');
readln;
end.