Ем я уголь, пью я воду,
Как напьюсь- прибавлю ходу.
Везу обоз на сто колес
И называюсь...
(паравоз)
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
Program adres;
begin
writeln ('мой адрес: здесь пиши свой адрес');
writeln ('мой телефон: 8 888 88 88');
end.
25-->11001
/////////////////////