В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
Система NTFS
_____________
var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');
end.
Не знаю только, как рассмотреть случай, если одна из координат = 0
var
a, b, c : real;
begin
if (a > b) then
begin
c := a;
a := abs (a + b);
b := sqr (c) - sqr (b);
end
else
begin
c := b;
b := abs (b + a);
a := sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,