Тред #46408933

#83875575 +

// 1 begin   writeln('Hello! What''s your name?'); end. // 2 var n: string; begin   writeln('Hello! What''s your name?');   readln(n);   writeln('Hello!', n); end. // 3 var MyName: string; MyAge: byte; // или любой другой целый тип begin   writeln('Hello! What''s your name?');   readln(MyName);   writeln(     'Hello! ',     MyName,     ''#13'How old are you?'     // ASCII-символ 13 (Enter)   );   readln(MyAge);   writeln('I''m ', MyAge); end. // 4 var a, b, c: byte; // или любой другой целый тип begin   readln(a, b);   c := a + b;   writeln(c); end. // 5 var a, b, c: byte; begin   readln(a, b, c);   writeln(a + b + c);   writeln(a * b * c); end. // 6 var a, b, c, d: byte; begin   readln(a, b, c, d);   writeln(a + b);   writeln(c * d); end. // 7 var a, b: byte; begin   a := 5;   b := a + 2;   a := (a + 2)*(b - 3);   writeln('a=', a, ', b=', b); end. // 8 var a, b: byte; begin   readln(a);   b := a + 2;   a := (a + 2)*(b - 3);   writeln('a=', a, ', b=', b); end. // 9 var RectangleWidth, RectangleHeight: byte; begin   readln(RectangleWidth, RectangleHeight);   writeln(   RectangleWidth + RectangleHeight,   ''#13'',   RectangleWidth * RectangleHeight ); end. //10 /// // "Base" and "Exponent" given, // where Exponent := 2 to 5 // (see the loop below) /// var Base: integer; begin   readln(Base);   for Exponent: integer := 2 to 5     do       case Exponent of         2 : writeln(Base**Exponent, ' — квадрат этого числа.');         3 : writeln(Base**Exponent, ' — куб этого числа.');         4 : writeln(Base**Exponent, ' — 4-я степень этого числа.');         5 : writeln(Base**Exponent, ' — 5-я степень этого числа.');       end; end.