Напишите пожалуйста программу на Turbo pascal: Найти частное двух…

Varx,y: integer; z: real; {При делении всегда получаем НЕ целое число}beginreadln (x,y); //Далее либо z: =x/y, либо z: =x/y, в зависимости от того, что на что делитьwriteln (z); end.