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

Program asd;Uses crt;Const n=10;var a,b,s:real;BEGINWriteln('Введите число 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. Выводим результат