Задание: 1. Найти числа двухзначного числа (div, mod) 2. Первую цифру

var a,c1,c2,p1,p2,s: integer; f: boolean; begin f:=false; writeln(Введите двузначное число:); while f=false do begin readln(a); if alt;0 then a:=a*(-1); if (agt;9) and (alt;100) then f:=true else writeln(Вы ввели не двузначное число. Введите еще раз:); end; c1:=a div 10; c2:=a mod 10; writeln(1) , c1, , , c2,.); p1:=c1*100; p2:=c2*10; writeln(2) , p1, , , p2,.); s:=p1+p2; writeln(3) , s, .); end. Замечание: программа написана на Pascal. Программка работает для двузначных и положительных и отрицательных чисел. Также осуществляется проверка того является ли данное число двузначным. a - это исходное число c1 - 1-ая цифра числа c2 - 2-ая цифра числа p1 - творенье первого числа и 100 p2 - произведение второго числа и 10 s - сумма творений p1 и p2