ПОМОГИТЕ НАПИСАТЬ Программки В ПАСКАЛЕ!! ОЧЕНЬ Безотлагательно!!!1. Выстроить и записать в

Задача 1

var i, sum, x: integer;        

begin  

sum := 0;   //исходная сумма

for i := 1 to 10 do   //счётчик до 10

begin  

 write('Введите число ', i ,': ');  

 readln(x);  

 sum:= sum + sqr(x);  //к сумме прибавляем квадрат введенного числа

end;  

writeln('Сумма квадратов чисел = ',sum);  

end.

Задачка 2.

var i, sum: integer;  

begin  

sum := 0; //начальная сумма

for i :=  26 to 88 do //счётчик от 26 до 88

 begin

   if i mod 2 = 0 then //проверка на чётность, если остаток от разделения равен 0, то число чётное

    sum:= sum + i; //к сумме добавляем число

  end;

  write(sum);

end.