Найдите и исправьте ошибки в программках:Var x,y,z1,z2: integerBeginWrite(x);- необходимо ввести

Найдите и исправьте оплошности в программках:
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.