Это же 7 класс максимум
1. Var x,y : Real;
begin
readln(x);
if x<-6 then y:=2*x*x;
if (x>=-6) and (x<=6) then y:=2*x*x-4;
if (x<6) and (x<=8) then y:=Cos(x*180/3.14)+1; - косинус в паскале считает в радианах, переводим в градусы, это уже по идее должно быть оговорено в задании, если все равно то просто Cos(x)+1
if (x>8) then y:=(x div 1)-2; - если правильно помню из математики, что [] - это целая часть числа, не уверен.
writeln(y);
end.
2. Var x,y,z,c,m,n : Real;
begin
readln(x);
readln(y);
readln(z);
if x>y then (if x>z then m:=x else m:=z) else (if y>z then m:=y else m:=z);
if x<y then (if x<z then n:=x else n:=z) else (if y<z then n:=y else n:=z);
c:=m*m/(n*n);
writeln (c);
end.
Как-то так. Могу в чем-то ошибаться, давно это было, синтаксис я в основном по Delphi помню, у языков много общего.
Что касается 3, это оператор case of, чисто механическое строкописание, если известен список этих самых фамилий.