Чем можно заменить var(k,n,h): =readinteger3; в этой программе const c='123456789abcdefghijklmnopqrstuvwxyz'; begin var(k,n,h): =readinteger3; for var row: =1 to k do for var height: =1 to h do begin var s: string: =c[height]*height+' ' *(h-height); writeln(s*n); end; end. версия паскаля 3.3 сборка 1547

Const  c='123456789abcdefghijklmnopqrstuvwxyz'; var k,n,h: integer; beginread(k,n,h);

Лови ссылку https DEDTGEFIYG

16.............................

А в заключение - сказка

С загадкой и подсказкой:

У дисковода-папы

Под крышей - мама-плата,

Но дочки с ними не живут -

У людей нашли приют.

Умненькие дочки

Запоминают строчки,

Запоминают все, что есть,

Что может с них компьютер счесть.

Все дочки-девочки равны,

Лишь отличаются они

Объемом памяти и платьем,

И в этом девичье их счастье!

Зовут красавиц просто - Стешки,

А по компьютерному - ... (флешки)