Почему у меня не работает программа?

Program PR1;

Uses crt;

begin

clrscr;

assing (f,'Data') ;

rewrite (f) ;

for i:=1 to 10 do

begin

readln (a) ;

write (f, a) ;

end;

readln;

end.

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

Нормально? Нужно создать программу с логическим циклом. Program p_1; Uses crt; Var i:integer; Begin Clrscr; i:=1; While i>1000 do begin Write (i) ; i:=i + (sqr (2+3)) ; end; readln; end.

Сделать из программы процедуру pascal Program kokokoko; uses crt; var fr, frn, s1:string; i:integer; begin clrscr; writeln ('Vvedite frazu:') ; readln (fr) ; fr:=fr+' '; While Pos (' ', fr) >0 do Begin s1:=Copy (fr, 1, Pos (' ', fr) - 1) ;

Как их сделать вместе чтобы работало Uses crt; var a, i:byte; s:real; begin clrscr; for i:=1 to 4 do begin writeln ('vvod') ; readln (a) ; if a mod 5=0 then writeln ('Число ', a,' кратно 5 ') else writeln ('Число ', a,' не кратно 5') end; end.

надо решать через Паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x. s:integer; y:real; begin s:=0; for i: = - 2 to 27 do s:=s+x; y:=s/30 writeln ('srednee arifmeticheskoe=', y) ; readkey; end.