Решите пожалуйста быстреееее!!!нужно написать программу вычесления функции

program task31128497;
const
a = 0.5;
x = 1.5;
y = 36;
var
F: real;
begin
F := a * Sin(x) + 2.7*y - E;
Writeln(F);
end.

Const - это раздел переменных, которые в ходе программы изменить нельзя. Если пишешь это на листочек, не забудь изменить название task[id] на какое-нибудь своё латинское название. Я так написал, чтобы сохранить авторский ответ, а то, бывают, копируют. Если что не так - пиши, обязательно исправлю.

Второй вариант программы:

program task;
begin
var a := 0.5;
var x := 1.5;
var y := 36;
var F: real;
F := a * Sin(x) + 2.7*y - E;
Writeln(F);
end.