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

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