1. Напишите соответствующую команду для программы на языке Паскаль: а) ввод переменных a,b,c;
б) вывод переменных a,b,c, разделенных пробелами;
в) вывод 2 величин: тестовой фразы «Площадь круга равна», значения площади s.

var
  str, num: string;

begin
  readln(str); //str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';
  foreach c: char in str do
    if (Char.IsDigit(c)) then
      num += c;
  for j: byte := 1 to length(num) - 2 do
    for i: byte := 1 to length(num) - 1 do
      if (num[i] < num[i + 1]) then
      begin
        str[1] := num[i];
        num[i] := num[i + 1];
        num[i + 1] := str[1];
      end;
  if (Integer.Parse(num) > 0) then
  begin
    while (num[num.Length - 1] = '0') do
      num.Remove(num.Length - 1);
    writeln('Да' + #13 + num);
  end
  else
    writeln('Нет');
end.

Program task1;
var  number, max, min, ost, digit :integer;
begin
  readln(number);  max:= 0; min:= 9;  while number > 0 do  begin    digit:= number mod 10;    if digit < min then      min:= digit;    if digit > max then      max:= digit;    number:= number div 10;  end;  writeln('Минимальная цифра: ',min);  writeln('Максимальная цифра: ',max);
end.

program task2;
var  number, digit, sum, p :integer;
begin
  readln(number);  sum:= 0; p:= 1;  while number > 0 do  begin    digit:= number mod 10;    sum:= sum + digit;    p:= p * digit;    number:= number div 10;  end;  sum:= sum * 3;  if sum > p then    writeln('Утроенная сумма больше произведения');  if p > sum then    writeln('Произведение больше утроенного произведения');
end.