begin
for i:integer:=1 to 7 do
writeln(‘Семь раз отмерь, один раз отрежь’);
end.
Windows (3.x, 95, 98, Me, 2000, XP(Pro, Home, MCE), 2003 Server, Vista), Windows Mobile Mac OS ( знаю мало, но юзал Tiger, Pantera) Unix (Linux, OpenBSD, Inferno, Fedora, Mandriva и т. т. д. ) Sun Solaris Symbian
<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;
begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.
и еще надо дописать разрешение файла Желательно</span>
У Иры трёхцветная кошка
У Маши чёрная кошка
У Вали белая кошка
У Светы серая кошка