Pascal
Составить программу для построения таблицы значений x и y для функции у=-xcos(x) при изменении х в диапазоне [-3, 3] с шагом 0.3. В колонках должны быть n, х, у>0, у<0, где n - номер по порядку

Пример работы:

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один