написать программку для подсчета чисел от k до 34+n которая будет

program raf105;

var k,n,x,i:integer;

begin

write('K = ');

readln(k);

write('N = ');

readln(n);

if (k gt; 5) and (k lt; n)

 then

 begin

 for i:=k to 34+n do

   x += 1;

 writeln('Вывод: ',x);

 end

 else

 writeln('Условия k gt; 5, k lt; n не соблюдены');

end.

Язык PascalABC