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

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. Выводим результат

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.