uses crt;

var a,b,c,v:real;

begin

clrscr;

textcolor(14);

writeln('a=');

readln(a);

writeln('b=');

readln(b);

writeln('c=');

readln(c);

v:=a*b*c;

writeln('v:=a*b*c',v:2:2);

readln;

end.

uses crt;

var a,b,c,s:real;

begin

clrscr;

textcolor(14);

writeln('a=');

readln(a);

writeln('b=');

readln(b);

writeln('c=');

readln(c);

s:=(a*b+b*c+c*a)*2;

writeln('s:=(a*b+b*c+c*a)2=',s:2:2);

readln;

end.

uses crt;

var a,S:real;

begin

clrscr;

writeln ('a^2');

readln (a);

S:=sqr(a);

writeln ('S:=sqr(a)=',S:3:2);

readln;

end.

uses crt;

var pi,d,l:real;

Begin

clrscr;

textcolor(28);

pi:=3.14;

writeln ('d:=');

readln (d);

l:=d*pi ;

Writeln ('l:=d*pi=',l:2:2);

readln;

end.

uses crt;

var a,v:real;

begin

clrscr;

textcolor(5);

writeln('a=');

Readln(a);

v:=(a*a*a);

Writeln('v:=a*a*a=',v:2:2);

readln;

end.