Я бы сделал так: var a,a1,a2,a3,a4:integer; begin write ('Введите четырехзначное число: '); read (a); a1:= a div 1000; a2:= a div 100 mod 10; a3:= a div 10 mod 10; a4:= a mod 10; writeln ('Первая цифра: ',a1); writeln ('Вторая цифра: ',a2); writeln ('Третья цифра: ',a3); writeln ('Четвёртая цифра: ',a4); <span>end. <u>Этот вид более эстетичный</u> ;) </span>
Var a, b, c, s: real; begin write('Введите a, b: '); readln(a, b); c := sqrt(a*a + b*b); s := (a * b) / 2; writeln('Гипотенуза: ', c, #10, 'Площадь: ', s); end.