2.11 * напишите класс, который выводит на экран в одной строке ваше имя и фамилию, в другой – телефон, все это – в рамке из «звездочек» (*). например: * *иван иванов* *7-841-266666* * 2) напишите класс, который принимает с клавиатуры целое число и выводит на экран число, которое больше введенного с клавиатуры на 10.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! type   ex211a=class     public     constructor(fio,phone: string);   begin       var n: =max(fio.length,phone.length);       writeln((n+2)*'*');       writeln('*',fio.padright(n),'*',newline,'*',phone.padright(n),'*');       writeln((n+2)*'*')   end; end; type   ex211b=class     public     constructor;   begin       var n: =readinteger('введите целое число: ');       writeln('результат равен ',n+10)   end; end; begin   new ex211a('иван иванов','7-841-2666666');   new ex211b end. пример *************** *иван иванов  * *7-841-2666666* *************** введите целое число: 18 результат равен 28

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.