Var
a,b : integer;
begin
writeln('vvedite 1 chislo')
readln(a)
writeln('vvedite 2 chislo)
readln(b)
writeln(a + b)
end.
Извини, но моя твоя, непонимай
1) присвоения :=
2)
3
4
3,5
3) 1
a=2 b=5
var a,x,x1,x2,x3:integer;
Begin
read(a);
writeln('4. s=',4*a);
read(x);
x3:=x mod 10;
x1:=x div 10;
writeln('5. x=',x3*100+x1);
End.
Неверно:
<span>1, видеоадаптер цветного монитора может работать только в графическом режиме </span>
begin
var a := SeqGen(15, i -> i + 1).ToArray; a.Println;
{если нужно вводить вручную, закомментируйте вторую строку
и раскомментируйте пятую}
// var a := ReadArrInteger(15);
Swap(a[0], a[4]);
Swap(a[9], a[14]);
a.Println;
end.