Программирование паскаль abc ! с дерева собрали некоторое количество яблок. их разделили поровну между детьми, гулявшими во дворе (яблоки не резали), а оставшиеся отдали, чтобы сварить компот. сколько яблок досталось каждому ребенку? сколько пошло на компот?

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var a: =readinteger('яблок было');   var d: =readinteger('детей гуляло');   writeln('каждый получил яблок: ',a div d);   writeln('на компот пошло яблок: ',a mod d) end. тестовое решение: яблок было 37 детей гуляло 7 каждый получил яблок: 5 на компот пошло яблок: 2

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end.