Составить программу вычисления суммы первых 10 натуральных чисел. (Программу написать двумя цикл с предусловием while, 2.цикл с постусловием repeat) ​

1.

begin

var a,b:integer;

a:=1;

b:=0;

while a<=10 do begin

b:=b+a;

a+=1;

end;

writeln(b);

end.

2.

begin

var a,b:integer;

a:=1;

b:=0;

repeat

b:=b+a;

a+=1;

until a > 10;

writeln(b);

end.

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}