Переведите выражения из обычного математического языка на язык бейсик ​

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд.