Question

Ввести в оперативную память значение целочисленной переменной x
var x: integer
var x:real
write(x)
read(x)
Вывести на экран монитора значение целочисленной переменной x
var x: integer
var x:real
write(x)
rad(x)