Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>
uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>
if (условие) then
begin
end; //условный оператор
_____________________
for i:=a to b do
begin
end; //Цикл с параметром
_____________________
while (условие) do
begin
end; //цикл с предусловием
_____________________
repeat
until (условие) //цикл с постусловием
D) активная ячейка -это ячейка в которой выполняется ввод команд,можно сказать это та ячейка в которой находится сейчас курсов
1.Бит
2.Что бы узнать сколько содержится байт,килобайт информации
3.Единицы измерения информации