Да всё работает,просто надо подправить,где то забыл ":" или что ещё поставить..Добавлено (26.03.2011, 17:34)
---------------------------------------------
Code
program c1;
uses crt;
var a,i,b:Integer;
begin
a:=1;
b:=0;
for i:=1 to 24 do
begin
if (i mod 3=0) then a:=a*2;
b:=b+1;
end;
writeln('4epe3',' ',b,' ','4acoB',' ',a,' ','ameb');
Readln;
end.
Вот исправленный код.
