Напишите программу вычисления суммы квадратов всех натуральных двузначных чисел, кратных 5

Program summa; var a,s,i: integer; begin s: =0; for i: =10 to  99 do begin if (i mod 5=0) then s: =s+sqr(i); end; writeln(s); end. :  

Program chisla; uses crt; var a,b : integer; begin write('введите два числа: '); read(a,b); if (a> =0) and (a< =999) and (b> =0) and (b< =999) then begin if (a> =100) and (a< =999) then writeln(a); if (b> =100) and (b< =999) then writeln(b); if (a> =10) and (a< =99) then writeln(' ',a); if (b> =10) and (b< =99) then writeln(' ',b); if (a> =0) and (a< =9) then writeln(' ',' ',a); if (b> =0) and (b< =9) then writeln(' ',' ',b); end else writeln('нужно ввести числа от 0 до 999'); end.

Microsoft qbasic: dim n as double, p as double, k as integer cls k = 0 p = 1 do     input "vvedite chislo ili 0 dlya kontsa vvoda: ", n     if n < > 0 then           p = p * n           k = k + 1     end if loop until n = 0 p = exp(log(p) / k) print "srednee geometricheskoe = "; p end тестовое решение: vvedite chislo ili 0 dlya kontsa vvoda: 3.2 vvedite chislo ili 0 dlya kontsa vvoda: 11.7 vvedite chislo ili 0 dlya kontsa vvoda: 8.4 vvedite chislo ili 0 dlya kontsa vvoda: 0 srednee geometricheskoe =  6.800461329716477