Во-первых, вы указали свою системную память, а не оперативную.
Положим, размер вашей ОЗУ = 4ГБайт = 2^2 × 2^10 × 2^23 = 2^35 (бит)
40 × 60 × 8 = 300 × 2^6 = 75 × 2^8 (бит) - размер страницы
2^35 / 2^8 = 2^27 => 2^27 / 300 = 447392 страницы (что по высоте примерно 4474 см)
Начало
ввод a,b,c;
d=a;
если b>d тогда d=b
если c>d тогда d=c
вывод d;
конец
что-то вроде этого
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.