===== PascalABC.NET =====
function Min3(a, b, c: real) := Min(Min(a, b), c);
begin
var (a, b, c) := ReadReal3;
Min3(a, b, c).Println
end.
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
П0 1 П4 ИП4 2 * С/П КИП4 ИП4 ИП0 - x<0 03 С/П
var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.