Нужно записать в римской с. с. числа: 2154359, 499512

|| | х |х ||| х |хх сверху над каждым знаком между проблесми чёрточка

1var     a, b, k, m: real; begin     writeln('введите поочерёдно катеты a, b, k и m: ');     readln(a, b, k, m);         if (0.5 * a * b) = (0.5 * k * m) then         writeln('площади треугольников равны! ')     else writeln('площади треугольников не равны! '); end. 2var     number, firstdigit, seconddigit: integer; begin     write('введите число: ');     readln(number);         if ((number > = 100) and (number < = 999)) or ((number < = -100) and (number > = -999)) then         begin             firstdigit : = number div 100;             seconddigit : = (number div 10) mod 10;                         if (firstdigit > seconddigit) then                 writeln(firstdigit, ' > ', seconddigit)             else if (firstdigit < seconddigit) then                 writeln(firstdigit, ' < ', seconddigit)             else writeln(firstdigit, ' = ', seconddigit)         end     else writeln('число не трёхзначное! '); end.

1.                                                                        

program raf105;

var n,m,i: integer;

begin

writeln('введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('вывод: ');

for i: =n to m do

  writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2: integer;

begin

write('введите число: ');

readln(a);

while a < > 0 do

begin

  b: = a mod 10;

  if b< > 0

    then if (b mod 2)=0

      then kol1+= 1

      else kol2+= 1;

  a: = a div 10;

end;

writeln('в числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol: integer;

begin

write('введите n: ');

readln(n);

for i: =1 to n-1 do

  if ((i mod 2)< > 0) and ((i mod 3)< > 0) and ((i mod 5)< > 0)

    then kol+=1;

writeln('вывод: ',kol);

end.

язык pascalabc