var
a, b, c: Real;
begin
Write ('Введите a и b: ');
Read (a, b);
c := 2 * a + 6 * b / 3;
WriteLn ('c = ', c);
end.
останется в памяти ОЗУ 96 кбайт
var i,s:integer;
for i:=1 to 99 do s:=s+i;
writeln(s);