Napisati program sa funkcijom za izračunavanje sume kvadrata dva cijela broja.

Listing programa:

PROGRAM P09311001;
VAR
 a,b:integer;
 s:real;
FUNCTION skv(a,b:integer):real;
BEGIN
  skv := sqr(a) + sqr(b);
END;

BEGIN
  write('a,b=');
  readln(a,b);
  s:=skv(a,b);
  writeln('s=',s);
  READLN;
END.

Ispis na ekranu:

Index