Если не Турбо Паскаль, то d1 тут ни к чему Var s:string[200]; begin writeln('Введи строку s= '); readln(s); if Length(S)>5 then S:=S+'КЛМН'; writeln('Новая строка ',s); end.
Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
s:string[200];
begin
writeln('Введи строку s= ');
readln(s);
if Length(S)>5 then S:=S+'КЛМН';
writeln('Новая строка ',s);
end.