Николай
Не распознает косинус пишет ожидалась функция
program cos;
uses crt;
var x,y: real;
begin
writeln();
readln(x);
y:=cos(x);
writeln(y);
end.
program cos;
uses crt;
var x,y: real;
begin
writeln();
readln(x);
y:=cos(x);
writeln(y);
end.
program cos; {ты переопределил название cos, теперь это имя программы. }
...
y:=cos(x); {нельзя вызывать программу внутри программы, вот и пишет, что ожидалась функция}
Назови программу cosinus - все заработает.