20 и 15 это десятичные числа?
Их нужно просто сложить и результат перевести в пятеричную систему
Var
k: real;
begin
readln(k);
writeln('a = ', k / 5, '; b = c = ', k / 5 * 2);
<span>end.</span>
Срочно-срочно?
set /p a="Dir: "
copy %a%\*.txt C:\Reserv\
<span>К растровым редакторам относятся программы:
B) </span>