<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (b, c) := ReadReal2;
if c <> 0 then Write('a=', b / c)
else Print('с=0')
end.
Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
program n;
uses crt;
var i,s:integer;
begin
s:=0;
for i:=50 to 600 do
if (i mod 8)=0 then s:=s+i;
writeln(s);
<span>end.</span>
Если вы имели в виду азбуку морзе, то вы расшифровали неправильно, так как "и" на азбуке морзе - "**", а тут первые два символа - "-*"