Найдите программу которая считывает текст из файла и выводит на экран только строки, содержашие двузначные числа. pascal.

1

2      uses crt;

3     var

4     f: text;

5     s: string;

6     i,code: integer;

7     begin

8     clrscr;

9     assign(f,'filename.txt');

10  reset(f);

11  whilenoteof(f)do

12 begin

13           readln(f,s);

14           val(s,i,code);

15           if(length(s)=2)and(code=0)then

16           writeln(s);

17  end;

18  readln;

19  end.

20

Алгоритм: 1. получить значение с и а. 2. значение с, необходимо умножить на два. 3. прибавить к значению а результат получившийся во 2 шаге.  4. вывести результат.  программа: program  example; var c: integer;   // переменная с a: integer; // переменная а x: integer; // переменная х begin write("введите переменную с: ");   // выводим сообщение readln(c);   // получаем значение write("введите переменную a: ");   // выводим сообщение readln(a);   // получаем значение x: =c*2;   x: =a+x; write("x= ", x);   // выводим сообщение end.

Program area; var a: integer; // сторона а b: integer; // сторона b s: integer; // площадь прямоугольника p: integer; // периметр прямоугольника  begin write("введите а: "); // выводим сообщение  readln(a);   // получаем значение а write("введите b: ");   // выводим сообщение  readln(b);   // получаем значение   b s: =a*b; // вычисляем площадь p: =a*2+b*2;   // вычисляем периметр write("площадь равна: ", s);   // выводим сообщение  write("периметр равен: ", p);   // выводим сообщение  end.