На билеты в театр юного зрителя установлены три цены: 300 р., 450 р, и 600 р. На утренний спектакль решено продавать 200 билетов

Если надо составить программу, то вот, держи.
program apple;
var a,b:integer;
begin readLn(a,b);
if a>0 && b>0 then
begin
if a>b a:=(a+b)/2;
else b:=(a+b)/2;
end
else a<0 && b<0
begin
if(a<b)a:=a*-1;
else b:=b*-1;
end
else
begin
a:=a*2;
b:=b*2;
end
end.
Могут быть небольшие оплошности т.к. не работаю с паскалем, но знаю некоторые основы.