program telegramma;
uses crt;
var c:string;
n:integer;
begin
clrscr;
c:='Телеграмма';
for n:=1 to length(c) do
begin
write(c[n]);
delay(1000);
end; readkey
end.
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть