Составить блок-схему и программу, которая большее из двух произвольных чисел возводит в квадрат, а меньшее увеличивает на единицу.

Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
end.

Исправил