ОООООООО ДАЮ 20 поинтовзадание два​

Первые две задачи:

var a: integer;

var b,d,e:real;

var c:String;

begin

a:= 23;

b:=7.5;

c:='Hello';

d:=(a*2.5);

e:=b-0.5;

writeln(e);

readln;

end.

Третья задача:

var tC: integer;

var tF:real;

begin

Writeln('Напишите температуру C°');

readln(tC);

tF:= 9/5 * tC +32;

writeln('Температура Фаренгейта равна ', tF);

end.

Четвертая задача:

var a,b,c,x,y,E,Z:Integer;

var Otvet:real;

begin

writeln('Введите число a');

readln(a);

writeln('Введите число b');

readln(b);

writeln('Введите число c');

readln(c);

writeln('Введите число x');

readln(x);

writeln('Введите число y');

readln(y);

E:=(a+b)*c;

Z:=(x*x)+(y*y);

Otvet:=E/Z;

Writeln(' ',Otvet);

end.