Помогите срочно!Составить алгоритм через паскаль.Введите с клавиатуры три числа авс.если а=в.то все числа замените квадратами если а больше b больше c то каждое число замените наибольшим, иначе: а сделайте равным сумме в и с, с...

var   a, b, c : integer; begin   read (a, b, c);   if a = b then   begin     a := sqr (a);     b := sqr (b);     c := sqr (c);   end   else if (a > b) and (b > c) then   begin     b := a;     c := a;   end   else   begin     a := b + c;     c := 0; end;   write (a, ' ', b, ' ', c); end.