Написать программы к задачам на Паскале.1. Аквариум - куб со стороной а метров. Рыба - шар, диаметр b см. Подсчитать количество выплеснутой воды.2. Является ли шестизначный номер счастливым.3. По двум углам определите вид треуг...

1)  var v1,a,v2,v3,d:integer; begin readln(a,b); a:=a/10; v1:=a*a*a; v2:=4/3*3,14*(d/2)(d/2)(d/2); v3:=v1-v2; Writeln("Объем выплеснутой воды ",v3); readln(); end.   2)  var i,num,a,b,c,d,e,f, sum1,sum2:integer;   begin readln(num); a:=num div 100000; num:=num mod 100000; b:=num div 10000; num:=num mod 10000; c:=num div 1000; num:= num mod 1000; d:=num div 100; num:= mod 100; e:=num div 10; f:=num mod 10;  sum1:=a+b+c; sum2:=d+e+f; If (sum1=sum2) then Writeln("Да, является."); else writeln("Нет, не является."); readln(); end.        

№1 var a,b,v:real; begin readln(a,b); v:=4/3*Pi*sqr(b/2)*(b/2); a:=sqr(a)*a; v:=a-v; writeln(v:7:4); end.   №2 var s:string[6]; begin readln(s); if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))= (strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then writeln('Является') else writeln('Не является'); end.   №3 var a,b:integer; begin readln(a,b); if (a<90) and (b<90) and (180-a-b<90) then writeln('Остроугольный') else if (a=90) or (b=90) or (180-a-b=90) then writeln('Прямоугольный') else writeln('Тупоугольный'); end.