[gokhanaygun]

(*gokhan aygun*)
uses crt;
var
metin:string;
begin clrscr;
repeat
writeln('merhaba nas?ls?n');
readln(metin);
until metin='iyiyim';
readln;
end.