All pastes #907624 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-02-17 19:58 UTC
rendered paste body
program Aliz;
var a:Integer;
begin
 Write('Kerek egy szamot:');
 ReadLn(a);
 if(a>=0) then {Nem negativ}
  begin
   WriteLn(sqrt(a));
  end 
   else 
    begin
     WriteLn(a*a);
    end;
 ReadLn;
end.