с информатикой написать программу на паскале, главное с циклом FOR

Напечатать таблицу стоимости 50,100,150,...,1000г сыра(стоимость 1 кг вводится с клавиатуры

буду очень признательна

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

var a: array[1..100,1..100] of integer;

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.

на столе лежали ложки,

мама приготовила нам рожки.

var a : real;

begin 

  readln(a);

  if a> =0 then writeln(a-50) else writeln(a+100);

end.