Почему у меня не работает программа? 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 f: text; a,i: longint; beginclrscr; assign(f,'data'); rewrite(f); for i: =1 to 10 dobeginreadln (a); write (f,a); end; close(f); end.и еще надо дописать разрешение файла желательно

pascal:

 

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

 

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил