Помогите с информатикой

Question

Помогите с информатикой

---

Comments

добавьте еще фотографию самого алгоритма (блок-схему)

Answer 1

Program _1;
Var
max,a,b:integer;
begin
Writeln('Проверка алгоритма: a>b');
Writeln('Введите a');
readln(a);
Writeln('Введите b');
readln(b);
if a>b then
Writeln('Неверно!')
else
max:=b;
writeln(max);
end.