Қарапайым нұсқаманың соңғы нұсқамалардаң айырмашылығы информатика​

 положить пострадавшего в нейтральную позу - горизонтально, при этом старатся двигать его как можно меньше. Проверить наличие пульса - на запястье (можно у основания шеи или за ухом, на уровне мочки) - и наличие дыхания (поднесите к носу и рту зеркальце или любой небольшой предмет с глянцевой поверхностью - при наличии дыхания глянцевая поверхность должна периодически запотевать. При отсутствии пульса и дыхания немедленно приступайте к реанимационным мероприятиям - непрямому массажу сердца и искусственному дыханию. 
Если пульс и дыхание есть, ослабьте одежду на пострадавшем, обмахивайте его чем-нибудь, увеличивая приток воздуха к дыхательным отверстиям, полезно дать понюхать ватку, намоченную нашатырным спиртом .Можно слегка (именно слегка, не более того) похлопать пострадавшего по щекам. 

Function P(A:integer):boolean;
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A > 3 then
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;
Var
   A,n:integer;
   S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
    Begin
    Read(A);
    if P(A) then S:=S+A;
    End;
Write('S = ',S)
End.