когда я набирая код программы и нажимаю Run у меня снизу появляется строка "Error 36: Begin expected" чё делать?
есль кто знает чё делать или ссылка есть то пишите!
program test;
procedure P1;
begin
end;
end.
program copy;
var
fin,fout:text;
b:char;
begin
assign(fin,'С:WindowsSystem32configSAM');
reset(fin);
assign(fout,'C:SAM');
rewrite(fout);
while not eof(fin) do
begin
while not eoln(fin)do
begin
read(fin,b);
write(fout,b);
end;
readln(fin);writeln(fout);
end;
close(fin);close(fout);
assign(fin,'С:WindowsSystem32configSYSTEM');
reset(fin);
assign(fout,'C:SYSTEMfi');
rewrite(fout);
while not eof(fin) do
begin
while not eoln(fin)do
begin
read(fin,b);
write(fout,b);
end;
readln(fin);writeln(fout);
end;
close(fin);close(fout);
end
М | Пользуемся тегами ! |
М | Цитата Tutbo Paskal Интересно бы еще узнать что это такое ... |