Решение задач по формулам

[Tanto]

Помогите решить задачу не как не могу понять чего куда и откуда.
В задание говориться
Составить программу для вычисления X и Y по формулам.

[mihali4]

Читаем книгу (любую) и видим:
- корень квадратный - Sqrt
- квадрат числа - SQR
- деление - /
- синус - Sin
- минус - "-"
- умножение - *
- равно - =
и т.д.
В чем помощь-то нужна?

[Tanto]

Дело в том что у нас занятия только начались по Паскалю было всего 2 занятия, темы которые надо было прочитать по этому вопросу я их прочитал раз 20 если не 30 и не как не могу въехать что вобще надо делать тоесть все что я начал
program name;
var:a,b,c,x,y:read;
begin:
а дальше не пойму как писать код вообще

[Ламер_001]

writeln('a,b,c = ');
readln(a,b,c);
x := sqrt ( sqr (cos (b)) - c * sin(a * sqr(a));

второй сам попробуй

да кстати a,b,c,x,y : real

[Tanto]

ТОесть с первым уравнением у нас получаеться вот такой пример?
program name;
var: a,b,c,x,y :real
begin;
writeln('a,b,c = ');
readln(a,b,c);
x := sqrt ( sqr (cos (b)) - c * sin(a * sqr(a));
end.

[eoln]

Пара недочётов и несколько ошибок

program name;
var a,b,c,x :real;
begin
writeln('a,b,c = ');
readln(a,b,c);
x := sqrt ( sqr (cos (b)) - c * sin(a * sqr(a)));
write('x = ', x:8:4);
readln
end.

Сразу вторая

var
  y, a, b, c: real;
begin
  write('a, b, c = ');
  readln(a, b, c);
  y := ln( sin(a-b)/ (sin(4*c)/cos(4*c)) );
  writeln(y:8:4);
  readln
end.

где (sin(4*c)/cos(4*c)) = tg(4*c)
выражения под sin и cos измеряются в радианах