program 2 числа;
var a, b: real;
begin
writeln ('Введите a,b>>');
readln(a, b);
if a=b then
a:=a*2;
b:=b*2;
writeln (a, b);
else
writeln ('Числа равны');
end.
Объяснение:
Вроде так
