Ноутбук больше чем нетбук
Нетбук более удобный всмысле объема
Если в ячейках A1,A2,A3 записаны числа, то формула:
=IF(A1=0;0;IF(A2=0;0;IF(A3=0;0;1)))
Var a,S:integer;
Begin
Writeln("Введите сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.
Eсли задана точность то зачем задавать n? И наоборот.