Склавиатуры вводится число а,в, и целое число х. если х=0 а,в-real найти разность а-в, 1-а*в, 2-х: integer a: в, в противном случае найти сумму.

Program Numbers;
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)>0) and (frac(b)>0) then 
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.