Развернутая форма.. ​

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.

картинка должна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.