Дано целое положительное число А, значение которого вводится с клавиатуры. Напишите программу, позволяющую:
- найти минимальную цифру среди последних трех цифр числа
- вывести на экран найденную цифру
- если цифр меньше трех, то выдать сообщение < невозможно выполнить заданную операцию>. программу выполнить в pascal abc. спасибо!

uses crt;var x,y,i,n,s,min:longint;m:array[1..100] longint;beginclrscr;readln(x);i:=0;while x<>0 dobegini:=i+1;m[i]:=x mod 10;x:=x div 10;end;min:=m[1];if i<3 then writeln('Error') elsebeginfor y:=1 to 3 doif m[y]<=min then min:=m[y];writeln(min);end;readln();end.