for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
Составим таблицу, куда пощагово запишем все значения переменных (см. во вложении) и увидим, что значение переменной С будет равно 8
Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
Обьект - обьект +1000000000000000000!!!