Помогите 4.6(б) Даны два вещественных числа.Определить: какое из них меньше

Question

Помогите 4.6(б)
Даны два вещественных числа.Определить: какое из них меньше

Answer 1

//Pascal
var a,b:real;
begin
  readln(a,b);
  if a=b then writeln('Числа равны')
  else
     if aend.