Ну это уже смешно)
var
a,b : integer;
begin
readln(a);
readln(b);
if a > b then writeln(a)
else writeln(b);
<span>end.</span>
8 Бит - 1 Байт
1024 Байт - 1 Килобайт
1024 Килобайт - 1 Мегабайт
1024 Мегабайт - 1 Гагабайт
2 Гигабайта = (1024 Мегабайт * 1024 Килобайт * 1024 Байт * 8 Бит) * 2
2 Гигабайта = 17 179 869 184 Бит
Вот программа и результат работы этой программы (смотри скриншоты)
Var
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B > C then M:=A+B
else M:=C;
if A+C > B then WriteLn('max(A+B,C)-min(A+C,B) = ',M-B)
else WriteLn('max(A+B,C)-min(A+C,B) = ',M-A+C)
End.
program test;
const N=5;//любое число можешь ввести
var a:array [1..n] of integer;
i,k,s: integer;
begin
for i:=1 to n do
read (a[i]);
k:=0;
s:=0;
for i:=1 to n do
if a[i] mod 6=0 then begin k:=k+1; s:=s+a[i] end;
write('сумма= ',s,' количество= ',k)
end.