Создать текстовой фаил и написать в нем 5 одинаковых фраз

открой блокнот, напиши строку, скопируй 5 раз

мне на паскале нужно помогите

а у самого-то какие мысли?

если бы я знал я бы не спрашивал,если сможешь помоги написать

фраза вводится пользователем?

написать любую фразу и чтоб она автоматически повторялась сама 5 раз в паскале

var f:text;
    s:string;
    i:integer;
begin
Assign(f,'123.txt');
Rewrite(f);
writeln('vvedite frasu: '); // сделал ввод фразы пользователем
readln(s);
for i:=1 to 5 do
 begin
 Writeln(f,s);
 end;
readln(s);
close(f);
end.

а почему цикл не повторяеться 5 ряз автоматически?

как не повторяется???

Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...

Когда я нажимаю в паскале на Run эта фраза раз не выводится(

writeln('vvedite frasu: '); // сделал ввод фразы пользователем

это не выводится?

Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически

ясно,значит твои знания в паскале нулевые
вспомни свое задание:"нужно создать текстовый файл и написать в нем 5 одинаковых фраз"
когда при запуске программы она говорит 'vvedite frasu:' тебе нужно ввести любую фразу и нажать Enter.
теперь поищи в папке с паскалем файл "123.txt" и открой его

программа то пошла и на txt файле она выводит фразу,а как сделать так чтоб она прямо в run-е выводилась это фраза 5 раз а не на txt файле

var 
    i:integer;
begin
for i:=1 to 5 do
 Writeln('блаблабла');
readln;
end.

Программа выводит результат и сразу закрывается. Посмотреть на результат вывода можно по нажатию alt+f5.

Меня учитель заколебал:))

Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN

Меня учитель заколебал:))

Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN

Сначала выводишь в файл 5 раз, потом выводишь на экран 5 раз. В чём вопрос?

var f:text;
    s:string;
    i:integer;
begin
Assign(f,'123.txt');
Rewrite(f);
writeln('vvedite frasu: '); 
readln(s);
for i:=1 to 5 do
 begin
 Writeln(f,s);
 writeln(s);
 end;
readln(s);
close(f);
end.

Предлагаю дружно помочь человеку завалить предмет. Иначе он его не выучит.

согласен, писать курсовую и не иметь даже элементарного представления о паскале - это как минимум неправильно