Написать программу, которая выводит сумму квадратов пяти целых положительных чисел числа (как положительные, так и отрицательные) вводятся с клавиатуры

Var n,k,t: integer; begin k: =0; t: =0; repeat read(n); if n> 0 then begin k: =k+1; t: =t+sqr(n); end; until k> 4; writeln(t); end.

Var a: integer; begin     writeln('введите месяц');         readln(a);               case a of                     12,1,2: writeln('зима');                       3..5: writeln('весна');                       6..8: writeln('лето');                       9..11: writeln('осень')               else                       writeln('введите правильную дату');               end; end.                        

  const      v1 = 5; //скорость грузовика      v2 = 10; //скорость легкового автомобиля      t = 5;   //задержка между выездом        var    t1 : integer; //время, от выезда легкового авто    begin  readln (t1);     if v1 * (t +t1) < = v2 * t1 then    writeln ('догонит')    else    writeln ('не догонит');   end.      {  уравнение зависимости координаты от времени  x = xo + vt  x0 = 0    xg(t) = v1*(t+t1)  xl(t) = v2*t1    xl(t) > = xg(t)   }