Алгоритм, иконка, Интернет, не знаю.
При последовательном режиме выполняется сначала программа А, за 10 минут, а затем программа Б за 20 минут, в сумме их время получается 30минут. При мультипрограммировании программы выполняются не последовательно, а вместе, т.е. время на их выполнение будет лежать в промежутке от 20 до 30минут, где Т будет равно времени, лежащему в промежутке, за которое исполнитель выполнит обе задачи.
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.