2. Составьте скрит для повторения действия 10 раз

!rheth>ytUil !rheth>ytUil !rheth>ytUil!rheth>ytUil !rheth>ytUil !rheth>ytUil !rheth>ytUil!rheth>ytUil

Объяснение:

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

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

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); 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.