Блок схема var a,b: integer; begin writeln('введите в одной строке два целых числа и нажмите '); readln(a,b); if a> b then writeln(a,'больше',b) else if a writeln(a,'меньше',b) else writeln('числа равны'); end.

Var
 a,b:integer;
Begin
 writeln('Введите в одной сроке два целых числа');
 readln(a,b);
 if (a>b) then writeln(a,' больше ',b)
  else
  if (a<b) then writeln(a,' меньше',b)
   else writeln('Числа равны');
End.