[jozekkg]

program objetosc;
var
a,b,h,v : integer;

Begin
clrscr;
write('Podaj wymiar a= '); readln(a);
write('Podaj wymiar b= '); readln(b);
write('Podaj wymiar h= '); readln(h);
v:=a*b*h;

if (a=b) and (b=c) then
write(' Objetosc szescianu o wymiarach ',a,' x ',b,' x ' ,c,' wynosi V= ',v)
else
write(' Objetosc graniastoslupa o wymiarach ',a,' x ',b,' x ' ,c,' wynosi V= ',v);


readln;

end.

To tak na szybko. Nie wiem, czy nie wskoczył jakiś błąd składniowy.