Помогите пожалуйста, срооочно!!!! 30 баллов

Question

Помогите пожалуйста, срооочно!!!!
30 баллов

---

Comments

Любые две задачи надо решить

---

Программу что-ли?

---

pascal abc?

Answer 1

Первая: 

var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.

Вторая:

vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.

Третья: 

varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.

Comments

vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.

---

Чертово форматирование...

---

Вторая:

var
a,b:real;
begin
readln(a);
readln(b);
writeln('Периметр: ', 2*(a+b));
writeln('Площадь: ', a*b);
end.

---

Третья:

var
v1,v2,s,t:real;
begin
readln(v1);
readln(v2);
readln(s);
readln(t);
writeln((v1*t)+(v2*t)+s)
end.