program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
№3 <span>Линий-выносок, размерных линий, полок</span>
Ответ:
Пока карандаши есть в коробке
Берёшь 1 карандаш
Если он простой то кладёшь в белую коробку
В противном случае кладёшь в красную коробку
Абзац (убрать первые 2 буквы и между а и ц втавить я) и получится заяц