Question

Составить алгоритм решение задачи дано два числа a и b если a=b то числа вознести в квадрат A2=a*a если a больше b сложить

Answer 1

Program asd;
Uses crt;
Const n=10;
var a,b,s:real;
BEGIN
Writeln('Введите число a: ');
Readln(a);
Writeln('Введите число b: ');
Readln(b);
If a=b then
S:=sqr(a) 
else 
 if a>b then
S:=a+b 
 else   
Writeln('Числа Не соответствует условию!'); 
Writeln('Ответ: ',s);
END.
Алгоритм такой (Линейный):
1. Ввод чисел
2. Условие
3. Считаем
4. Выводим результат