Question

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

Answer 1

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.