Посмотрите везде ли в вашей программе правильно поставлены отступы
условие: первая буква -гласная
если да, то вывести слово без первой буквы, иначе-оставить без изменений
// PascalABC.Net v3.1
var
n,p: integer;
begin
// 1. вывод нечетных от 50 до 40
n:=51;
while n>=41 <span>do begin </span>
writeln(n);
n:=n-2;
end;
// 2. Произведение от 7 до 12
p:=1;
n:=7;
while n<=12 do begin
p:= p* n;
n :=n+1;
end;
writeln(p);
end.
2)Маша она точна купит заколку
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите значения a и b:');
if a = 0 then
if b = 0 then
Println('Решений бесконечно много')
else
Println('Решений нет')
else
Println('x =', -b / a)
end.