Школа - Школьный Департамент.
Больница - Минздрав.
Автомобиль -Водитель.
Река - Море.
Планета - Солнечная Система.
342-2 единицы 4 десятка 3 сотни
2840- 0 единиц 4 десятка 8 сотен 2 тысяч
529-9 единиц 2 десятка 5 сотен
Математика - 1 урок
Литература - 2 урок
История - 2 урок
Var
a, b, c: integer;
begin
readln(a);
readln(b);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.
Или через случайные числа:
var
a, b, c: integer;
begin
randomize;
a := random(50);
b := random(50);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.