aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Gibt das Quadrat des Wertes zurück.

Deklaration

function sqr(zahl:real,integer);

Beispiel

var zahl:integer;

begin
writeln('Welche zahl wollen Sie quadrieren ?');
writeln;
readln(zahl);
zahl:=sqr(zahl);
writeln('Das Ergebnis ist ',zahl);
readln;
end. 

---