напишите программу, которая требует у вас пароль ,например, 246. Если пароль правильный, то выводит сообщение :"молодец!", иначе -"неверный пароль". Если после пятой попытки пароль все равно неверен, выводит сообщение : "карта заблокирована".

Program n1;
var pas: string;
k: integer;
begin
readln(pas);
k:=0;
while true do if pas='246' then
begin
write('молодец');
break;
end else
begin
k:=k+1;
writeln('неверный пароль');
readln(pas);
if k=5 then begin write('карта заблокирована');
break;
end;
end;
end.