Найдите и исправьте оплошности в программках.
1. var x, y, z1,

Найдите и исправьте оплошности в программах.
1. var x, y, z1, z2:integer;
begin
write(Введите x =);
read(x);
write(Введите y =);
read(y);
z1:= int(x/y);
z2:= frac(x/y);
write(Целая часть =,z1);
write(Дробная часть =,z2);
end.

2. var x, y, z1, z2:real;
begin
write(Введите x =);
read(x);
write(Введите y =);
read(y);
z1:=x div y;
z2:=x mod y;
write(Целая часть =,z1);
write(Остаток =,z2);
end.