Не выполняется

Question

Tushcanchik Ученик (225), на голосовании 13 лет назад

program summa_ab;
uses crt;

var a, b, c, d, f :integer;

begin

a := 39;
b := 54;
c := 84;

d := a*b;

f := abs(d-sqr(c));

write (f);

end.

Дополнен 13 лет назад

Паскаль, компиляция проходит, но не вычисляет!

Answer 1

выполняется, просто ты не видишь. Добавь перед end. ReadLn;