Question

Помогите,пожалуйста.

Answer 1

1)var x:integer;
begin 
writeln ('Artem');
end.
2) for n:=1 to 9 do

      begin

          a:=10*n;

          writeln(n,’  ‘,a);

      end;
3)Квадрат числа 15 равен 3.87
4)856174932
5)-6
6)9
7)1