1)Henry_фord быть не может из-за нижнего подчеркивания и кириллицы
2) var_y:real не может быть из-за нижнего подчеркивания и зарезервированных символов и операторов (двоеточие и тип real)
3)_____ из-за нижнего подчеркивания
4)downto зарезервированное слово, тоже нет
5) _С++ из-за нижнего подчеркивания и плюсов.
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>