Выполнение программы на Pacsal ABC

Задание 1

Какие значения будут у переменных а, 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.