Программа

VAR a,b,c:real; {Коэффициенты уравнения}
BEGIN
  Write('Введите a '); {Вывод приглашения}
  ReadLn(a); {Ввод коэффициента}
  Write('Введите b '); {Вывод приглашения}
  ReadLn(b); {Ввод коэффициента}
  Write('Введите c '); {Вывод приглашения}
  ReadLn(c); {Ввод коэффицента}
  if Sqr(b)-4*a*c>=0 {Сравнение дискриминанта с нулем}
  then WriteLn('Уравнение имеет действительные корни')
  else WriteLn('Уравнение не имеет действительных корней')
END.