Найдите и исправьте ошибки в программах: var x,y,z1,z2: integer begin write(x); - нужно ввести значение x read(x); write (y); -ввести значение y read(y); z1: =frac(x/y); z2: =frac(x/y); write(целая часть = ; z1); write( дробная часть=; z2); end.

Var

   x, y : integer;

   z1, z2 : real;

Begin

   Write('- нужно ввести значение x ');

   Readln(x);

   Write('- ввести значение y ');

   Readln(y);

   Z1 := int(x/y);

   Z2 := frac(x/y);

   Writeln('целая часть = ', z1);

   Writeln('дробная часть = ', z2);

End.