[satox]

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.

Ucz mnie  mistrzu.

Bo  mi nie wychodzi.

Znam się trochę lepiej na linuksach i językach obcych.

@jozekkg I uzywam freepascala zatem clrscr jest już nie potrzebne.