var a:array[1..3,1..4]of integer;
j,i,sum:integer;
begin
for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 3 do sum:=sum+a[i,4];
writeln(sum);
end.
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.
1 Кбайт = 1024 байт = 1024 * 8 бит
1/4 Кбайт = 1024 * 2 бит = 2048 бит