Question

var s, k: integer;
begin
 s := 40;
 for k := 1 to 7 do
  s := s - 3;
 write (s);
end.

Answer 1

var
    s, k: integer;

begin
    s := 40;
    for k := 1 to 7 do
        s := s - 3;
    write(s);
end.

Вывод 19

Модераторам - если нужно, то можно удалять без предупреждения

Answer 2

хм,а можно с объяснением?

Answer 3

Каким обьяснением? Копипастим код в программу PascalABC.Net, убираем левые символы непонятных пробелов на которые ругается компилятор, жмем выполнить, все

Answer 4

код же простой в доску. или вы его прочитать не можете?

Answer 5

7 раз от s отнимается 3. s = 40-3*7 = 19