Какое минимально количество команд будет содержать программа для изображения рисунка

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

1)

var

a,b,x,y: real;

begin

readln(a,b);

x: =(a+b)/2;

y: =2*a*b;

if a> b then

begin

a: =y;

b: =x;

end

else

begin

a: =x;

b: =y;

end;

writeln('a=',a: 8: 3);

writeln('b=',b: 8: 3);

end.

2)

var

d,m: integer;

begin

readln(d,m);

if (d< 1) or (d> 31) then writeln ('день введен неверно');

if (m< 1) or (m> 12) then writeln ('месяц введен неверно');

end.

3)

var 

a,b,c: integer;

begin

readln(a,b,c);

if (a> b) and (a> c) then writeln(a);

if (b> a) and (b> c) then writeln(b);

if (c> a) and (c> b) then writeln(c);

end.

#include < iostream> #include < clocale> #include < cmath> using namespace std; void main(){ setlocale(lc_ctype,"rus"); int x, sum=0; cout< < "введите переменную: "; cin> > x; for(int i=1; i< x; i++) { if(x%i==0) sum+=i; } if(x==sum) {cout< < "это совершенное число"< < endl; } else {cout< < "это несовершенное число"< < endl; }}

не наю че за гамбас

пишу на паскале

var a: array[1..100] of integer;

i,n,k5,k4,k2: integer;

s: real;

begin

  read(n);

  for i : = 1 to n do begin

      writeln(' оценку учиника ',i);

      readln(a[i]);

      s: =s+a[i];

      if a[i]=5 then k5: =k5+1;

      if a[i]=4 then k4: =k4+1;

      if a[i]=2 then k2: =k2+1;

  end;

  writeln(s/n,k5,k4,k2);

end.