Lista kroków algorytmu

Zadanie: Przedstaw w postaci listy kroków algorytm obliczania 
wartości bezwzględnej dowolnej liczby rzeczywistej.

Dane: |-5|=5 |5|=5 |0|=0
      abs(-5)=5
      x:real;
Wyniki: |x|, wb

Lista kroków
1. Zacznij algorytm
2. Wprowadź liczbę x
3. Przypisz zmiennej wb wartość abs(x)
4. Wyprowadź wb
5. Zakończ algorytm

var x,wb:real;
begin
  read(x);
  wb:=abs(x);
  writeln(wb);
end.

program modul_liczby;
uses crt;
var x,wb:real;
begin
  clrscr;
  writeln;
  write('x = ');read(x);
  wb:=abs(x);
  writeln('|x| = ',wb);
end.