Ну вот так вот как-то...
Первое задание — на первом листе, второе — на втором.
A:= 4;
b:= 2;
b:= a/2*b = 4/2*2 = 4/4 = 1;
a:= 2*a+3*b = 2*4+3*1 = 8+3 = 11;
a = 11;
b = 1;
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.