помогите пожалуйста!!!!!! горит прям вообще!!!
1)Укажите результат выполнения программы
var a,b: integer;
procedure proc(var a: integer; b: integer);
begin b:=4; a:=6; b:=a+b; end;
begin a:=2; b:=3; proc(a,b); writeln(a,' ',b);end.
1) 2 3 2) 2 10 3) 6 3 4) 6 10

2) Сколько байт памяти надо для записи шуточного высказывания
Оскара Уайльда: «Я такой умный, что иногда не понимаю ни единого
слова из того, что говорю»?
1) 73; 2) 584; 3) 146; 4) 1168