Напишите в паскале программу к задачам 8,9,13 пожалуйста

8)Var  V,S,R,H : Real;Begin  Write('Введите R и H : '); Readln(R,H);  Writeln('V = ',Pi*sqr(R)*H);  Writeln('S = ',2*Pi*R*H);end.9)Var  V,S,R,H,L : Real;Begin  Write('Введите R,H и L : '); Readln(R,H,L);  Writeln('V = ',Pi*sqr(R)*H/3);  Writeln('S = ',Pi*R*L);end.