Помогите решить задачу в программе Turbo Pascal. Ели вас это не затруднит, то напишите…

На скорую руку сделал 1).Program c24; var a,b: real; beginreadln (a,b); //ввод значенийif (a>b) or (b>a) then writeln (a+b,',a+b) elsewriteln (a-a,',b-b); end.2). У тебя просто голова написанна, но у нас в задачнике был мальчик по имени Федя, а суть остается той же.program program26; var x,y,d,c,s: real; beginwriteln ('Укажите пожалуйста размеры форточки'); readln (x,y); Writeln ('Каков диаметр головы Феди'); readln (d); c: =x*y; //Площадь форточкиd: =d*2; s: =3,14*(d*d); //Площадь головыwriteln (c,',s); //проверка значенийif c>s then writeln ('Федечка тебе повело: D') else writeln ('Федя ты жирный'); end.