var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.
Uses crt;varx:integer;s:real;beginclrscr;write('x=');read(x);s:=x*x;writeln('resultat=',s);end.
Javascript:var M=[0,0,0,0,0,0,5,7,12,5,9];var C=0;for(var i=6;i<=10;i++)if(i\%2==0)C+=M[i];else C-=M[i];alert(C);
14.
Programm Pens;
var Year: integer;
begin
Readln ('Введите Ваш возраст:', Year);
Year := Year + 58;
Writeln('Ваш возраст выхода на пенсию: ', Year);
end;
Const n = 100;
const m = 50;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,it,bo:integer;
begin
for i:= 1 to n do
a[i] := trunc(Random(100));
for i:= 1 to m do
b[i] := trunc(Random(100));
bo:=1;
for i:=1 to m do
if bo = 1 then
for it:=1 to n do
if b[i] <> a[it] then begin bo:= 0; break; end;
if bo = 1 then write('Входят') else write('Не входят');
end.
если я правильно понял задание то так