Создайте программу, с библиотеки Tk, у которого такой же интерфейс как на рисунке (при нажатии кнопки «Кликни меня» слово
«Клик!» должно выводиться в интерактивном режиме.

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

ну, считай за 1 секунду 36 мегабайт. в 2 часах 120 минут или 7200 секунд. 7200*36=

259200 мегабайт = 259.2 гигабайта. (странный фильм какой