ввести число.если оно целое,то разделить его на 2,в противном случае умножить его на 10.

Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.
var y,c:real;
 a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
end.