Срочно! Переделать с цикла while на цикл repeat! И ещё сделать блок схему по циклу repeat. Вот программа которую нужно переделать:
program while20;
var N,n1:integer;
begin
write('Введите число N');
readln(N);
while (N>0) and (n1<>2) do
begin
n1:=N mod 10;
N:=N div 10;
end;
if n1=2 then
writeln('True')
else
writeln('False');
end.