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