Var
a,b,c,max:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
write('Максимальное число: ',max:5:2);
readln;end.
Var
s: string;
n: integer;
begin
Write('Введите строку: ');
Readln(s);
n := Length(s);
s := Copy(s, 6, n - 5) + Copy(s, 1, 5);
Writeln(s)
end.
Тестовое решение:
Введите строку: 1234567890abcdef
67890abcdef12345
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.