===== PascalABC.NET =====
begin
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.
Begin
var a:=ReadInteger('Введите двузначное число :');
var b:=a mod 10 ; var c:= a div 10;
Writeln('Разность =',c-b);
Writeln('Произведение =',c*b);
end.
Program Sample;
const
n = 4;
var
i, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
begin
Write('Введите число: ');
ReadLn(inpValue);
if maxValue < inpValue then
maxValue := inpValue;
end;
WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.
Этой маске соответствует ответ под номером 4.