Ввести 2 числа. Если оба числа равны 5.5, то выдать их

Используем конструкцию if...then...else:

program dvachisla;
Var a, b: real;
begin
writeln ( Введите 1-ое число );
readln (a);
writeln ( Введите 2-ое число );
readln (b);
if a lt;gt; 5.5 then a := a * 2;
if b lt;gt; 5.5 then b := b * 2;
writeln (a, , b );
end.