Чем можно заменить var(k,n,h):=ReadInteger3; в этой программеconst ...

Question

Чем можно заменить 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

Answer 1

const 
c='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var k,n,h:integer;

begin
read(k,n,h);
...