1. Заполнить пропуски в программе так, чтоб программка исполняла задачку:program P11;

1. Заполнить пропуски в программке так, чтоб программка исполняла задачу:
program P11; Определение наибольшей и малой цифры в
числе
var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while agt;0 do begin
x:=a mod 10;
a:=a div 10;
if xgt;Max then Max:=x;
end;
F:=Max;
end; F
function F1_____________________
_______________________________
begin
________________________________________
________________________________________
________________________________________
________________________________________
end; F1
begin
Write('Введите число-');
_____________________________________
_____________________________________
Writeln('Минимальная цифра в числе: ',F1(a));
end.
2. Протестировать программу с подмогою последующей таблицы:
А= Ответ А= Ответ А= Ответ А= Ответ
15463 5689 4752 23102
УП по информатике "ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ ПАСКАЛЬ"
141
3. Ответить на вопрос: сколько глобальных и локальных переменных употребляется
в данной программке?