1024000/1024/8=125 килобайт в секунду.
2500/125=20 секунд
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;