3. (на оценку 3). Разработать алгоритм для решения задачи.Даны два числа. Если они равны, то вывести сумму их квадратов. В противном случае вывести квадрат их суммы.

program zadanije_tri;

var a, b, c:integer;

begin

 writeln('Введите первое число.');

 readln(a);

 writeln('Введите второе число.');

 readln(b);

 if a=b then

   begin

   c:=a*a+b*b;

   writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');

   end

 else

   begin

   c:=(a+b)*(a+b);

   writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');

   end

end.

Если ввести, то программа выдаст сумму их квадратов, если ввести , то программа выдаст квадрат их суммы.