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

Надеюсь я помогла!

   Задача 1Алгоритм выглядит таким образом:ввести x, y;если x>y то s:=(x*y)*2;иначе s:=(x+y)/2;вывод sконец. (блок-схема прилагается в скриншоте 1)На паскале выглядит примерно так:var x, y, s:real;beginreadln(x,y);if x>y thens:=(x*y)*2;elses:=(x+y)/2;writeln(s:2:2);end.Ответ на 2 задачуТут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)Ответ на 3 задачуТут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".На паскале выглядит примерно так:var a, b, c:integer; {если число вещественное}beginreadln(a, b, c); if (a<b<c) thenwriteln("Верно");elsewriteln("Неверно");end.Ответ на 4 задачуНа паскале:var a, b, c, max:integer;beginmax:=0;readln(a,b,c);if max<a thenmax:=a;if max<b thenmax:=b;if max<c thenmax:=c;writeln(max);end.Ответ на 5 вопросНа паскале:Vara,b,c:integer;beginreadln(a,b,c);if (a<0) thena:=a*a;writeln(a);if (b<0) thenb:=b*b;writeln(b);if (c<0) thenc:=c*c;writeln(c);end.Удачи!