21. Составить
программу, которая запрашивает пароль (например, четырёхзначное число) до тех
пор, пока он не будет правильно введён.
Решение
program
lab21;
const
sl='1235';
var
s:string;
i:integer;
procedure
vvod;
begin
writeln('Enter
your pasword:');
readln(s);
end;
begin
repeat
vvod;
if s=sl
then writeln('OK') else writeln('ERROR. Try again!');
until
s=sl;
end.