1) вывести квадраты чисел от 1 до 10 в столбик2) Ввести ** экран 5 раз свое имя(Иван)

Question

1) вывести квадраты чисел от 1 до 10 в столбик
2) Ввести на экран 5 раз свое имя(Иван)

Answer 1

1) var i,kv:integer;
begin
for i:=1 to 10 do begin
kv:=i*i; writeln(kv); end;
readln;
end.

Comments

2) var a:string; i:integer;

---

А вторая?

---

ща

---

2) var a:string; i:integer;
begin
readln(a); {вводишь "Иван"}
for i:=1 to 5 do
writeln(a);
readln;
end.