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.
#include <stdio.h>#include <iostream>#include <math.h>
int main() {
system("chcp 1251");float perimetr, ploshad, a, b;printf("Введите стороны прямоугольника (a,b): ");scanf ("%f, %f", &a, &b);perimetr = (a+b)*2;ploshad = a*b;printf("\n Периметр равен: %.2f \n Площадь равна: %.2f \n", perimetr,ploshad);
system ("pause");return 0;}
var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.