Program first; begin writeln ('"Я люблю свою Родину!"'); writeln ('"Я люблю свою Родину!"'); writeln ('"Я люблю свою Родину!"'); writeln ('"Я люблю свою Родину!"'); writeln ('"Я люблю свою Родину!"'); writeln ('"Я люблю свою Родину!"'); end.
Вот гораздо удобнее: 1) var i:integer; begin for i:=1 to 6 do writeln('"Я люблю свою Родину!"'); end. 2)var i:integer; begin for i:=1 to 6 do write('"Я люблю свою Родину!" '); end.
begin
writeln ('"Я люблю свою Родину!"');
writeln ('"Я люблю свою Родину!"');
writeln ('"Я люблю свою Родину!"');
writeln ('"Я люблю свою Родину!"');
writeln ('"Я люблю свою Родину!"');
writeln ('"Я люблю свою Родину!"');
end.
1) var i:integer;
begin
for i:=1 to 6 do
writeln('"Я люблю свою Родину!"');
end.
2)var i:integer;
begin
for i:=1 to 6 do
write('"Я люблю свою Родину!" ');
end.