Препод задал по Паскалю!!!

[HAMA]

Для розрахунку значення змінної с = f(x, y) відповідно до математичних виразів (выраз ниже на картинке)

була розроблена наступна програма на алгоритмічній мові Pascal:
program labwork01;
uses crt;
const p=-51;
q=5;
m='Otvet: ';
var x,y:integer;
a,b,c:real;
begin
clrscr;
write('Vvedite x = ');
readln(x);
write('Vvedite y = ');
readln( y );
a:=cos(x);
b:=abs( y );
if x>=y then c:=a*b+p
else c:=(a-q)/b;
writeln;
writeln('-------------------');
writeln('a = ',a);
writeln('b = ',b);
writeln('-------------------');
writeln;
write(m);
writeln('c = ',c:4:4);
readln
end.
Відтворіть програму у інтегрованому середовищі розробки Turbo Pascal 7.0, виконайте налагодження програми та ії трасування. Зверніть увагу на відповідність тексту програми математичному опису завдання.

При трасуванні програми визначте: які змінні використовуються у програмі; як міняються їх значення в процесі роботи програми. Трасування виконайте для двох пар значень x та y (x>y та x).

[Hacker19_90]

КРОССПОСТИТЬ ЗАПРЕЩЕНО

[Arigato]

Сразу в бан пожизненный.

[ByAlex]

Да еще и ничего не понятно! Пишите по-русски!!!

[Noor]

Для расчета значения переменной с = f(x, y) относительно к математическим выражениям (на картинке)
была разработана программа на Pascal

 program labwork01;
 uses crt;
 const p=-51;
 q=5;
 m='Otvet: ';
 var x,y:integer;
 a,b,c:real;
 begin
 clrscr;
 write('Vvedite x = ');
 readln(x);
 write('Vvedite y = ');
 readln( y );
 a:=cos(x);
 b:=abs( y );
 if x>=y then c:=a*b+p
 else c:=(a-q)/b;
 writeln;
 writeln('-------------------');
 writeln('a = ',a);
 writeln('b = ',b);
 writeln('-------------------');
 writeln;
 write(m);
 writeln('c = ',c:4:4);
 readln
 end.

Написать программу на Turbo Pascal, выполните настройку программы и ее трассировку, обратите внимание на соответствие текста программы математическому описанию задания
При трассировке программы определите:какие переменные используются в программе;как меняются их значения в процессе работы программы.
Трассировку выполните для двух пар значений x и y (x>y и x).