Чем можно заменить var(k,n,h): =readinteger3; в этой программе const c='123456789'; 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
c='123456789';
var k,n,h:integer;
begin
read(k,n,h);
...