myslis si ze toto je ta spravna stranka na nieco taketo ?

nechodis na mendelku?

Å¡AK SU TU TAKY LUDIOA

je to konzolova aplikacia? ak hej tak mi daj 5 min

program Project2;

{$APPTYPE CONSOLE}



uses
SysUtils;
var teleso:string;
a,b,c,V:real;
begin
Write('Zadaj teleso(kvader / valec): ' ;
ReadLn(teleso);
if teleso='kvader' then
begin
Write('Zadaj velkost strany a: ' ;
ReadLn(a);
Write('Zadaj velkost strany b: ' ;
ReadLn(b);
Write('Zadaj velkost strany c: ' ;
ReadLn(c);
V:=a*b*c;
WriteLn('Objem telesa je '+FloatToStr(V)+'.' ;
Sleep(5000);
end
else if teleso='valec' then
begin
Write('Zadaj velkost podstavy: ' ;
ReadLn(a);
Write('Zadaj vysku valca: ' ;
ReadLn(b);
V:=a*b;
WriteLn('Objem telesa je '+FloatToStr(V)+'.' ;
Sleep(5000);
end
else writeLn('Zadal si zle teleso.'


end.

hodim ti to do pm tu je to zle =D

Ti smajlíci <?php echo "Hello World"; ?>

ne do freepascalu potrebujem