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

Первая:  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.