uygulama

PROGRAM DENEME;
CONST PI = 3.14;
VAR a,b,c, HACIM: REAL

BEGIN
WRITELN('DIKDORTGENLER PRIZMASININ KENAR UZUNLUKLARINI GIRINIZ');
READLN(A);
READLN(B);
READLN(C);

HACIM := A * B * C;

WRITE(HACIM: 6:2);

READLN;
END