решите, пожалуйста, 12 и 13 задачи, заранее спасибо

program zadanie12;var b:integer;a,X: real;Begin write('Вводим сумму,которую получает продавец с продажи каждой из первых 50 газет:');readln(a);write ('Ввводим кол-во проданных газет:');readln(b);X:=50*a+(b-50)*1.2*a;writeln('Продавец получит ',X,' рублей ');end.program zadanie13;var a,b:integer;s,x: real;Begin write('Вводим кол-во непроданных билетов эконом-класса:');readln(a);write ('Вводим кол-во непроданных билетов бизнес-класса:');readln(b);write ('Вводим стоимость билетов в бизнес-классе:');readln(x);s:=(120-a)*x/2+(40-b)*x;writeln('Билето продано на ',s,' рублей ');end.