Напишите программу сумму трёх чисел?

Program ;Var a,b,c:real;BeginWriteLn('Введите значение а: = ');Readln(a);WriteLn('Введите значение b: = ');Readln(b);WriteLn('Введите значение с: = ');Readln(c);Writeln(a+b+c);end.