Программисты помогите ,нужно написать задачи в паскале.

Задача № 7: Составить программу
вычисления значений функции для любого х по
желанию пользователя:


Задача № 11: Вводятся три значения ускорения свободного падения. 
Программа должна проверить, есть ли среди них ускорение свободного 
падения.

Задача № 12: Составить программу, которая запрашивает 
ввод формул трех кислот и проверяет, есть ли среди них формула серной 
кислоты?

Задача №7var x,y:real;beginreadln(x);if x<0 theny:=sqr(sin(x))+2else if x>=0 theny:=sqrt(x)+sqrt(sqr(x)+1);writeln(y);end.Задание № 12var s:array[1..3] of string;i,count:integer;beginfor i:=1 to 3 dobeginwriteln('Напишите формулу ',i,' кислоты');readln(s[i]);if (s[i] = 'H2SO4') or (s[i] = 'h2so4')  thencount:=1;end;if count=1 thenwriteln('Правильная формула есть')elsewriteln('Правильной формулы нет');end.Задача №11var g:array[1..3] of real;i,count:integer;beginfor i:= 1 to 3 dobeginreadln(g[i]);if (g[i] = 9.8) or (g[i] = 10) thencount:=1;end;if count = 1 thenwriteln('ДА,среди введенных значений есть ускорение свободного падения')else writeln('НЕТ,среди введенных значений нет ускорение свободного падения');end.