program error3(input, output);
{ uses WinCrt; }
const c = 1;
var
	a: char;
	i: integer;
	x: real;
begin
	a := c;
	i := 'A';
	x := 1;  {ok, means x := 1.0 }
	i := x;
end.