Объяснение:
uses crt;
var v,k,i:Integer ;
begin
writeln('Ведите число k,i');
readln (k,i);
v:=k*i;
writeln(v);
end.
