Составте программу для рисования цифр 1 и 2, в паскале ! !

Сначала сделай клетку и копируйте и все

Пишу на delphi  (objectpascal): function summa(a,b: integer): string; var  a1,b1: integer; begin     //находим сумму первого числа a1: =(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10); //находим сумму второго числа b1: =(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10); //выясняем что больше if a1> b1 then              result: ='сумма цифр левого числа больше. оно равно: '+inttostr(a1)          else          result: ='сумма цифр правого числа больше. оно равно: '+inttostr(b1); end; procedure tform1.button1click(sender: tobject); begin //выполнение и вывод результата функции через  нажатие  кнопки label1.caption: =summa(strtoint(edit1.text),strtoint(edit2.text)); end;

1. треугольник будет существовать если будут выполнятся одновременно три неравенства: x + y > z x + z > y y + z > x программа: var x, y, z: real; begin   writeln('введите стороны треугольника x, y, z: ');   read(x, y, z);   if (x + y > z) and (x + z > y) and (y + z > x)    then writeln('треугольник существует')   else writeln('треугольник не существует'); end. 2. думаю, здесь излишни объяснения. программа: var x, y, z: real; begin   writeln('введите три числа: ');   read(x, y, z);   writeln('в интервале (1; 3) лежат числа: ');   if (x > 1) and (x < 3) then writeln(x);   if (y > 1) and (y < 3) then writeln(y);   if (z > 1) and (z < 3) then writeln(z); end. блок-схемы в приложении: