PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Randomize;
case Random(1,3) of
1:Writeln('Скоро каникулы!');
2:Writeln('Надоела мне учеба!');
3:Writeln('Не хочу заниматься информатикой!')
end
end.
перед a,b:integer; нету слова var
Т.е. должно начинаться
var a,b:integer;
War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
var inch:integer;
begin
writeln('* alphaues is thinking... *');
writeln;
writeln('*******************************');
for inch:=1 to 20 do
writeln('* ',inch,' inches = ',inch*2.54,' *');
writeln('*******************************');
end.