Написать задачу для решения квадратных уравнений. Представить в трех видах: алгоритмический язык, блок-схема, программа для Pascal.
Задача: Даны два числа. Вывести на экран то из них, которое больше. Представить в трех видах: алгоритмический язык, блок-схема, программа для Pascal​

Квадратные уравнения:

var a, b, c, d, x1, x2: real; begin readln(a, b, c); d:=sqr(b)-4*a*c;  if d<0 then   write('Нет корней!');  if d>0 then   begin    d:=sqrt(d);    x1:=(-b+d)/(2*a);    x2:=(-b-d)/(2*a);    write(x1, ' ', x2);   end;  if d=0 then   begin    x1:=-b/(2*a);    write(x1);   end; end.

Два числа

var  a, b: integer; begin  Read(A, b);  if a > b then Writeln(A) else Writeln(B); end.