De la tastatura se introduce un caracter,daca el este mai mare ca 0 sa se calculeze patratul lui,in caz contrar sa se afle modulul lui.Am nevoie de un program in Pascal.

Răspuns :

program unu;var  n: integer;begin  read(n);  if n > 0 then writeln(n * n)  else  writeln(-1 * n);end.