Задание

Какие значения будут у переменных а, b, c после выполнения программы, если начальные значения переменных следующие: а=5; b=4; c=3. В ответе запишите числа без пробелов и других разделительных знаков в том порядке, в котором они будут выведены.

Var

a, b, c : integer;

Begin

writeln ('Введите числа a, b, c');

readln(a,b,c);

if (a<=b) and (b<=c) 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:=-a;

b:= -b;

c:=-c;

end;

writeln('a=',a,' b=',b,' c=',c);

End.