Я бы сделал так:
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>
Может быть 1, так как 3 буква гласная-а и последняя буква согсасная-н
Program Geron;var
a, b, c, p, s: real;begin
readln(a, b, c); p := (a + b +c) / 2; s:= sqrt(p*(p - a)*(p - b)*(p -c )); writeln(s);
end.
1 час 2 поциента . всего 9 поциентов в 11 30 а в 12, 10
<em>Д</em><em>о</em><em>р</em><em>о</em><em>г</em><em>о</em><em>й</em><em> </em><em> </em><em>п</em><em>о</em><em>л</em><em>ь</em><em>з</em><em>о</em><em>в</em><em>а</em><em>т</em><em>е</em><em>л</em><em>ь</em><em>,</em><em> </em><em>я</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>и</em><em>л</em><em> </em><em><u>в</u></em><em><u>с</u></em><em><u>е</u></em><em> </em><em>с</em><em>п</em><em>о</em><em>с</em><em>о</em><em>б</em><em>ы</em><em> </em><em>и</em><em> </em><em>н</em><em>е</em><em> </em><em>н</em><em>а</em><em>ш</em><em>е</em><em>л</em><em> </em><em>т</em><em>а</em><em>к</em><em>у</em><em>ю</em><em> </em><em>с</em><em>т</em><em>е</em><em>п</em><em>е</em><em>н</em><em>ь</em><em>.</em>
<em>П</em><em>о</em><em>ж</em><em>а</em><em>л</em><em>у</em><em>й</em><em>с</em><em>т</em><em>а</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>ь</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>с</em><em>в</em><em>о</em><em>е</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>е</em><em> </em><em>(</em><em>п</em><em>р</em><em>а</em><em>в</em><em>и</em><em>л</em><em>ь</em><em>н</em><em>о</em><em>-</em><em>л</em><em>и</em><em> </em><em>о</em><em>н</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>с</em><em>а</em><em>н</em><em>о</em><em>)</em>
<em>И</em><em> </em><em>е</em><em>с</em><em>л</em><em>и</em><em> </em><em>о</em><em>к</em><em>а</em><em>ж</em><em>е</em><em>т</em><em>с</em><em>я</em><em> </em><u>о</u><u>ш</u><u>и</u><u>б</u><u>к</u><u>а</u><em> </em><em>в</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>и</em><em>,</em><em> </em><em>т</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>ш</em><em>и</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>в</em><em> </em><em>к</em><em>о</em><em>м</em><em>м</em><em>е</em><em>н</em><em>т</em><em>а</em><em>р</em><em>и</em><em>я</em><em>х</em>