Найдите ошибку в программе
Program Name;
Var A, B: integer;
Rezult: char;
Begin
A:=6
B:=3
Rezult:=A div B
end

Ответ:

program test01;

var a, b, rezult: integer;

begin

a:=6;

b:=3;

rezult:= a div b;

writeln ('rezult = ', rezult);

end.

Объяснение: