Запиши программу на языке паскаль для: y=0,еслиx≤0x,если01. (y: 3: 0)
запусти программу и введи значение x=-14.

Была суббота, но Вася шёл в школу. По дороге он встретил своего друга Митю, который предложил сходить в кино, потому что по субботам не учился и был свободен.
1) Вася отказал сходить в кино, потому что не хотел лишний раз прогуливать школу, но договорился с Митей на воскресенье. К тому же Вася хотел исправить двойку по русскому. "Как знаешь" - ответил Митя. 
В школе одноклассник Васи Лёша предложил ему поиграть в мячик в коридоре, всё равно ведь делать нечего.
-Да он же маленький, теннисный! Нам ничего не будет!
1. Вася отказался от этой затеи. Он пошёл в класс и стал повторять правило и на уроке исправил свою двойку, ответив на отлично. А Лёша разбил мячиком лампу и его вызвали к директору.
2. Вася согласился. Всё равно на перемене было нечего делать. Мальчики весело играли, несколько раз попали в проходящих мимо ребят, и вдруг Лёша попал мячиком в лампу. Она разбилась. Мальчиков вызвали к директору, и после обещаний поговорить с родителями и уличительной беседы водворили на урок. После таких событий мальчики всё забыли и получили ещё по двойке.
2) Вася согласился. Он так давно не видел Митю! К тому же, в хорошую, солнечную погоду так не хотелось идти в школу. Мальчики пошли в кино и по дороге заметили ларёк с мороженым.
Вот бы по мороженке! Жаль, что у меня денег нет на мороженое, только на билеты хватит, - сказал Митя.
Вася тоже хотел мороженое, да и Митю бы угостил. У него были деньги, но на подарок маме на 8 марта. На другое ему нельзя было их тратить. 
1. Вася решил не тратить эти деньги. Он сказал Мите, что у него денег совсем нет и ребята пошли в кино. Они благополучно посмотрели фильм. Вася поругали, за то, что он не пошёл в школу, но двойку он исправил в понедельник.
2. Вася решил - гулять так гулять! Он купил себе и Мите по мороженому, после чего сумма в его кошельке заметно уменьшилась. После этого мальчики пошли смотреть кино. С удовольствием насладившись фильмом, Вася зашёл и за подарком маме. Он исправил двойку в понедельник, а своё отсутствие в школе объяснил родителм тем, что ходил в магазин.

1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.