1)2
2)3
3)3
4)-
5)program hello_world;
var a,c,i:integer;
b:real;
begin read(a);
b:=1;
for i:=1 to 5 do begin
b:=b+0.2;
write(b*a,' ');
end;
<span>end.</span>
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
............................................
Плагин-это расширение или дополнение возможностей
//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>