Что выдает программа?

[Мaрина]

Что выдает программа после запуска?

s:=10;
i:=3;
for i:=2 to 4 do s:=s-i;
WriteLn(s);
ReadLn;

[Abstraction]

Э-э-э... запустите да проверьте, в чём проблема?

[Ezhik Kihze]

в чём проблема?

в том, что злой препод дал такое задание, а времени и желание думать нету...

[s-andriano]

Сообщение от Ezhik Kihze

желание думать нету...

Значит, оно Вам не нужно.
Так и скажите преподу.

[Stilet]

Что выдает программа после запуска?

Трижды разность от 10 трех.

[Mad_Cat]

s:=10;
i:=3;
for i:=2 to 4 do
 s:=s-i;
{i=2 s=s-2=10-2=8}
{i=3 s=s-3=8-3=5}
{i=4 s=s-4=5-4=1}
WriteLn(s);{1}
ReadLn;

[Abstraction]

в том, что злой препод дал такое задание, а времени и желание думать нету...

Это вряд ли. В ЕГЭ такие задания есть... хотя толку от ответа на некоторый посторонний ЕГЭ?..