Проверьте программу!

Program f4;

var f1, f2 : text;

s: string;

begin

Assign (f1,'t1. txt') ;

Assign (f2,'t2. txt') ;

Reset (f1) ;

Rewrite (f2) ;

while not eof (f1) do

begin

readln (f1, s) ;

writeln (f2, s) ;

end;

close (f1) ;

close (f2) ;

end.

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.

Скажите, почему программа не видит input? Program objective1; var a:real; t:text; Begin assign (t,'input. txt') ; reset (t) ; read (t, a) ; close (t) ; assign (t,'output.

Program Pr1; uses crt; var fl1, fl2:text; i, n, v, a, b:integer; Begin clrscr; assign (fl1,'input. txt') ; assign (fl2,'output.

Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;