нужно сделать Лабораторное задание по информатике

«alt+[shift]+tab» — переключение между окнами; «alt+f4» — закрыть активное окно; «alt+space (пробел)» — открытие системного меню окна. с него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без мыши; «alt+shift» или «ctrl+shift» — переключить язык; «ctrl+alt+delete» — открытие окна «безопасность windows»; «win» — открытие/закрытие меню «пуск»; «ctrl+esc» — открытие/закрытие меню «пуск»; «win+d» — свернуть/восстановить все окна, включая диалоговые; «win+e» — открытие программы «проводник»; «win+r» — открытие окна «запуск программы» («пуск» --> «выполнить…»); «win+f» — открытие окна для поиска; «win+l» — заблокировать компьютер; «win+m» — сворачивает все окна, кроме диалоговых; «win+pause/break» — открытие окна «система»; «ctrl+shift+esc» — открытие окна «диспетчер »; «print screen» — поместить снимок всего экрана в буфер обмена. в ms-dos использовалась для вывода на принтер содержимого экрана; «alt+print screen» — поместить снимок активного окна в буфер обмена;

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.