ПОЖАЛУЙСТА, СРОЧНО, НАПИШИТЕ 3 ПРОГРАМЫ НА ЯЗЫКЕ ПАСКАЛЬ
1) Сум
ма первых семи натуральных чисел
2) Сумма первых семи натуральных чисел возведенных в квадрат
3) Сумма четных чисел от 1 до 20 Сори, не туда добавила))))

uses crt;var i,a,b,c:integer;beginfor i:=1 to 20 dobeginif i<=7 thenbegina:=a+i;b:=b+sqr(i);end;if (i mod 2) = 0 thenc:=c+i;end;writeln('Сумма первых семи натуральных чисел: ',a);writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);writeln('Сумма четных чисел от 1 до 20: ',c);end.