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

1. program task31128497;
2. const
3.  a = 0.5;
4.  x = 1.5;
5.  y = 36;
6. var
7.  F: real;
8. begin
9.  F := a * Sin(x) + 2.7*y - E;
10.  Writeln(F);
11. end.

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

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

1. program task;
2. begin
3. var a := 0.5;
4. var x := 1.5;
5. var y := 36;
6. var F: real;
7. F := a * Sin(x) + 2.7*y - E;
8. Writeln(F);
9. end.