Question

Помогите пож. С информатикой 6 класс.

Answer 1

1)
Program DZ1;
begin
  write ('20 20 20 20 20 20 20 20 20 20');
end.
2)
Program DZ2;
var i,n,x:longint;
begin
  read (x,n);
  for i:=1 to n do
    write (x,' ');
end.
3)
Program DZ3;
var i:longint;
begin
  writeln ('1 фунт = 453 г');
  for i:=2 to 10 do
    if i<5 then writeln (i,' фунта = ',453*i,' г')
    else writeln (i, фунтов = ',453*i,' г');
end.