Найти и исправить ошибки в программе.

Program chisla; Var n1, n2 : longint;
k1, k2 : byte;
Function kol(x : longint): byte; var k: byte; begin k:=0;
While x<>0 do begin
Inc(k); x:=x div 10; end; kol:=k; end;
BEGIN
writeln(‘Введите два числа’); readln(n1, n2); k1:=kol(n1); k2:=kol(n2);
if k1=k2 Then writeln(‘одинаковое количество цифр’) else if k1>k2 Then Writeln(‘в первом числе цифр больше’)
else writeln(‘во втором числе цифр больше’)
END.​

kayseriliadige    3   24.04.2020 07:31    1