напишите ПОЖАЛУЙСТА программу вычитания 2-х чисел (с числами т.е. полностью)

Программа вычитает из первого числа второе: Var a,b,c: real; Begin Writeln ('введите два числа'); Readln (a,b); S:=a-b; Writeln (a,'-',b,'=',s) End. . Пример работы программы: введите два числа 15.67 12.45 15.67-12.45=3.22