Var A, B, C: real;
begin
writeln('введите два числа');
readln (A, B);
C: = A * B;
writeln ('Произведение введенных Вами чисел равно' , C);
<span>end.</span>
Процессор, внутренняя память, дисководы, материнская плата.
Первая задача
program firstProgram
var<span> ug1, ug2: real;
</span>begin<span>
write("Введите первый угол: ");</span><span>
read(ug1);</span><span>
write("Введите второй угол: ");</span><span>
read(ug2);</span>
<span> if ((ug1 + ug2) < 180)</span><span>
begin</span><span>
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");</span><span>
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");</span><span>
else write("Треугольник остроугольный");</span><span>
end
</span><span>end</span>