Задание во вложении
Напишите программу(для Pascal) для данного выражения:(под номером 4)

Ну..Я если честно не знаю какая версия,в школе у меня Widows XP а там версия не указана.

У меня тоже Windows XP, но версия операционной системы никакого отношения не имеет к версии среды с паскалем.

Я не знаю,напишите для любой старой версии Паскаля

1) Я уже ответил, что писать не буду и объяснил причины. 2) Чтобы получать коды для старых версий, впредь указывайте "в синтаксисе FPC или Pascal ABC"

У меня Pascal ABC

// PascalABC.NET 3.2, сборка 1449 от 23.05.2017// Внимание! Если программа не работает, обновите версию!begin  var x:=ReadReal('x=');  var A:=x>0?sin(x):x=0?0.0:cos(x);  Writeln(A)end.