Program prim1; uses crt; var a,i: integer; begin read(a); i: =1; while i< 10 do begin i: =i+1; write(a); end; end. это программа для того чтобы вывести 10 одинаковых чисел на экран. переделать так, чтобы можно было вывести слово 10 раз. программа pascalabc.
program prim1;
uses CRT;
var
i: integer;
a: string;
begin
read(a);
i:=1;
while i<10 do
begin
i:=i+1;
writeln(a);
end;
end.
Или
program prim1;
uses CRT;
var
i: integer;
begin
i:=1;
while i<10 do
begin
i:=i+1;
writeln('ПРИВЕТ');
end;
end.