Прошу!
құрал-саймандар тақтасындағы мына батырмалардың функциясын анықтап, кестені толтырыңдар! ​

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

var a: integer;

s: string;

begin

  read(a);

  case a of

      1: s: ="i";

      5: s: ="v";

      10: s: ="x";

      50: s: ="c";

      100: s: ="c";

      500: s: ="i";

      1000: s: ="m;

  end;

  writeln(s);

end.

римские соответствия не все помню

зеркало

коромысло

дупло

дуло

крыло

{кажется так. если будет ощибка в лс напиши}

program rrr;

uses crt;

var a,b,c,s: integer; {если будут дробные значения то вместо integer ставь real}

begin

writeln('введи стороны треугольника: '); read(a,b,c);

if a*a=b*b+c*c then

begin

s: =b*c/2;

writeln('площадь=',s);

end

else if b*b=a*a+c*c then

s: =a*c/2;

writeln('площадь=',s);

end

else if  c*c=a*a+b*b then

s: =a*b/2;

writeln('площадь=',s);

end

else s: =a+b+c;

writeln('периметр= ',s);

readln;

end.