Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь)

[5Paladin5]

я прохожу практику и нам дали задание в делфи написать программу....
мне досталась такая:
При табулировании функции y=cos(x+a) на отрезке [1,10] с шагом h=1 определить сумму значений y, у больших p.

[ОДИНОЧЕСТВО В СЕТИ]

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  i:Integer;
  y,a,p:real;
  s:Real;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    s:=0;
    Writeln('input a');
    Readln(a);
    Writeln('input p');
    Readln(p);
    for I := 1 to 10 do  begin
      y:=Cos(i+a);
      if y>p  then s:=s+y;

    end;
    Writeln('s=',s);
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Readln;
end.

. няяя!

[5Paladin5]

извиняюсь за глупость но может я не туда вставил, у мя ошибку выдает...

я в код просто вставил... и запустил F9

[Stilet]

извиняюсь за глупость но может я не туда вставил

Может. это Console Application. File-New-Console Application и вставляй.

у мя ошибку выдает.

Дык мы тут японский то тоже не знаем...