patrat_p.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program patrat_perfect;
{sa se verifice daca un nr. e patrat perfect}
var n:integer;
begin
write('n= ');
readln(n);
if n<0 then write('un nr. negativ nu poate fi patrat perfect')
else
    if sqrt(n):integer then write('nr. ',n, 'este patrat perfect')
                       else write('nr. ',n, 'nu este patrat perfect');
end.