Program wczytujący dane do podania wyrazu stop (Pascal).

Program dane;
uses crt;
var dana:string [30];
begin clrscr;
writeln ('Podaj dane');
repeat
readln (dana)
until dana='stop';
readln;
end.

Related Articles