👤

Hey, salut!
Am nevoie de ajutor cu o problema PASCAL!!!
Scrieți o functie cu numele SPR care primește în calitate de parametri două numere reale:
x și m. Subprogramul returnează valoarea TRUE dacă x > m și FALSE în caz contrar


Răspuns :

program cuFuncBool;

var a,b: real;

function SPR(x,m:real):boolean;

begin

 SPR:=x>m;

end;

begin

 read(a,b);

 writeln(SPR(a,b));

end.