Показать сообщение отдельно

  #7  
Старый 08.11.2008, 23:53
Andres
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами: 9526747

Репутация: 272


По умолчанию

Еще вопрос, вот исходник из учебника, не пойму, причем тут a и b? read(a,b);
Line(a,b);

Код:
program editor;
var x : integer;
procedure Line (ch:char; ln:integer);
var symbol : integer;
begin
write('{');
for symbol:=1 to ln do
write('ch');
writeln('}');
end;
begin
read(a,b);
Line(a,b);
end.
 
Ответить с цитированием