Неправильны: целочисленное деление невозможно осуществить с вещественными числами, а косинусы и деление говорят как раз о вещ. переменных, и тут уже не исправишь, можно понатыкать округлений, но значение выражения будет уже не то...
Задание №1
y := (4 * Power (x, 7) - 15 * x + Cos (x)) / (Sqrt (Abs (Power (Sin (x * x), 3) + Power (Cos (Power (x, 3)), 2))) + 2.53) ;
Задание №2
y := (a * a + b * b - 14 * Power (a, 6) + 15 * a * b) / (4 * Tan (Pi / 3));
примечание "y :=" в начале выражения можно убрать
<em>var g,s:string;
</em>
<em>begin
</em>
<em>readln(g);
</em>
<em>readln(s);
</em>
<em>writeln('Столица государства ',g,' - ','город ', s);
</em>
<em>end.
</em>
Program n1;
var d:integer; a:real;
begin
writeln('Введите d ');
readln(d);
if d <= (-30) then
a:= d/10;
if d <20 then
a:= (-2)*d+1;
if d >20 then
a:= sqr(d-1);
writeln(a);
readln
end.
================================
program n2;
uses crt;
var pr:boolean;
begin
writeln('* Введите номер месяца *');
pr:=false;
writeln('Сделайте выбор четверти');
writeln('1. 1 четверть');
writeln('2. 2 четверть');
writeln('3. 3 четверть');
writeln('4. 4 четверть');
writeln('5. Выход');
repeat
case readkey of
'1':writeln('Сентябрь | Октябрь');
'2':writeln('Ноябрь | Декабрь');
'3':writeln('Январь | Февраль | Март');
'4':writeln('Апрель | Май ');
'5':pr:=true;
end;
until(pr);
writeln('Конец.');
readln
end.