El siguiente programa presenta algunos errores de escritura y de programación, detectelos y escríbalos aparte, indicando cual es el error:
Program quiz1;
Var
x,y,z: integer;
a,b,c= real;
Begin
read(x)
read(y);
read('a');
z:= x/y;
for x=1 to y do
write(x);
y:= cos(x);
end;