Задачи в Паскале

Задание №1
Написать на языке TPascal программу, вычисляющую значение переменной
по расчетной формуле и исходным данным. Обеспечить ввод данных с клавиатуры и вывод на экран результатов расчетов.
Выражение Y=2X^4-7AX+(3A+5)/(X+4)-|4-cos⁡(1-1⁄AX) |; X: real; A:byte;
Задание №2
Написать на языке BPascal программу, табулирующую функции на за-
данном интервале [Хn, Xk] с определенным шагом вычислений dX.
Функция: Y=cos⁡(X-8)/sin⁡(X+3) -X^2;
[X_n;X_k ]= [4,-3];
dX = –0,5;
Задание №3
Написать программу, которая запрашивает у пользователя год рождения. В зависимости от последней цифры программа комментирует данные.
Задание №4
Написать модуль, содержащий функции и процедуры, и программу, использующую подпрограммы из этого модуля. Программа должна производить поиск и вывод на экран значения минимал ...

Задание №1
Написать на языке TPascal программу, вычисляющую значение переменной
по расчетной формуле и исходным данным. Обеспечить ввод данных с клавиатуры и вывод на экран результатов расчетов.
Выражение Y=2X^4-7AX+(3A+5)/(X+4)-|4-cos⁡(1-1⁄AX) |; X: real; A:byte;
Задание №2
Написать на языке BPascal программу, табулирующую функции на за-
данном интервале [Хn, Xk] с определенным шагом вычислений dX.
Функция: Y=cos⁡(X-8)/sin⁡(X+3) -X^2;
[X_n;X_k ]= [4,-3];
dX = –0,5;
Задание №3
Написать программу, которая запрашивает у пользователя год рождения. В зависимости от последней цифры программа комментирует данные.
Задание №4
Написать модуль, содержащий функции и процедуры, и программу, использующую подпрограммы из этого модуля. Программа должна производить поиск и вывод на экран значения минимального элемента переданного ей одномерного массива.

Введение не требовалось

В зависимости от последней цифры программа комментирует данные.Блок-схема:Листинг программы:program GodR;uses crt;const nomberg:array[0..9] of string=('забавный','угрюмый','смешной','суровый','спокойный','добрый','чуткий','резкий','нежный','ласковый');var symbol:char;function vvod(str:string):boolean; begin vvod:=false; if (length(str)=4)and((str[1]='1')or(str[1]='2')) then vvod:=true else vvod:=false; end; procedure god(st:string[4]); var i:integer; begin i:=strtoint(st[4]); writeln('Ваш год рождения говорит о том, что Вы ',nomberg[i]); end; procedure proverka(sym:char); var stroka:string; begin if sym ='д' then begin writeln('Введите год рождения'); readln(stroka); while vvod(stroka)=false do begin writeln('Год рождения введен не корректно. Повторите попытку.'); readln(stroka);end; god(stroka); writeln('Хотите узнать про Ваших знакомых (да/нет)?'); readln(symbol);proverka(symbol); end else writeln('Очень жаль...'); end;begin writeln('Данная программа позволит Вам узнать кое-что новое о себе и о своих знакомых.'); Writeln('Хотите продолжить(да/нет)?'); readln(symbol); proverka(symbol);end.Запуск программы:Задание №4Написать модуль, содержащий функции и процедуры, и программу, использующую подпрограммы из этого модуля.