[satox]

Twój program został zmodyfikowany przezemnie aby się kompilował na free pascalu bo nie chciał się kompilować wersja pascala linux 86_64:

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

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

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


readln;

end.

W każdym razie dzięki :

@jozekkg

I tak na marginesie writeln zajmuje się liczbami i wszelkimi znakami zaś write tylko jednym znakiem.