Найдите все ошибки в программе и исправьте их: Var i, j, k:integer; Begin Read ('введитеk'); i:=20; j:=k/i; Writeln (j =, j); End.

В качестве параметра процедура Read принимает только имена переменных. Текстовый параметр 'введите k' мог бы быть параметром процедуры Write или Writeln.

Для ввода значения переменной k следует использовать процедуру read (k).

Переменная j может принимать дробные значения. Тип Integer для нее указан неправильно. Правильно - j: real.

В процедуре вывода на экран Writeln текстовую часть (j = ) следует взять в кавычки.

Точка с запятой перед End не ставится.

Рабочая программа:

program divide;

var i, k: integer;

j: real;

begin

write ('Введите k '); read (k);

i: = 20; j: = k / i;

writeln ('j = ', j)

end.