Данны три числа a,b,c. Составить алгоритм вычисления произведения квадратов этих чисел.

Задача 1
Алгоритм выглядит таким образом:
ввести x, y;
если x>y то
s:=(x*y)*2;
иначе
s:=(x+y)/2;
вывод s
конец. (блок-схема прилагается в скриншоте 1)

На паскале выглядит примерно так:
var
x, y, s:real;
begin
readln(x,y);
if x>y then
s:=(x*y)*2;
else
s:=(x+y)/2;

writeln(s:2:2);
end.

Ответ на 2 задачу
Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)

Ответ на 3 задачу
Тут тоже.. в условии указываешь просто a
На паскале выглядит примерно так:

var
a, b, c:integer; {если число вещественное}
begin
readln(a, b, c);
if (awriteln("Верно");
else
writeln("Неверно");
end.

Ответ на 4 задачу
На паскале:
var
a, b, c, max:integer;
begin
max:=0;
readln(a,b,c);
if maxmax:=a;
if maxmax:=b;
if maxmax:=c;

writeln(max);
end.

Ответ на 5 вопрос
На паскале:

Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<0) then<br>a:=a*a;
writeln(a);

if (b<0) then<br>b:=b*b;
writeln(b);

if (c<0) then<br>c:=c*c;
writeln(c);
end.

Удачи!