Делую так:
Код
var imya :String;
vozrast :Integer;
Begin
WriteLn ('тут находиться текст');
ReadLn (imya);
WriteLn (' текст ');
ReadLn (vozrast);
WriteLn (' TEKCT ')
end.
vozrast :Integer;
Begin
WriteLn ('тут находиться текст');
ReadLn (imya);
WriteLn (' текст ');
ReadLn (vozrast);
WriteLn (' TEKCT ')
end.
Почему не получается??
Сообщение отредактировано: APAL -