Написать программу вычисления площади круга, значение радиуса вводиться с клавиатуры.програ в pascal

Uses crt; var a, s: integer; begin clrscr; write('a='); read(a) s=3.14*a^2; writeln(s); end.

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var t: =readalltext('pascal.txt');   var c1: =readlnstring('введите строку замещаемых символов').tochararray;   var c2: =readlnstring('введите строку замещающих символов').tochararray;   for var i: =0 to c1.length-1 do       t: =t.replace(c1[i],c2[i]);   writealltext('pascal.txt',t);   writeln('работа завершена'); end. пример введите строку замещаемых символов ячсми введите строку замещающих символов фывап работа завершена

#python 3.6.1 s = input() b = input() c = [int(i) for i in ()] a = input() for m in [i for i in set([j for j in range(len(s))]).difference(c)]:     if s[m] in b.split(): s =  s[: m] + a[0] + s[m+1: ] print(s) // pascal var     s: string[100];     b: string[50];     c: array[0..100] of byte;     a: char;     j,m: byte;     l: boolean; begin readln(s); readln(b); j: =0; read(a); while a < > #13 do     begin     read(c[j]);     c[j]: =c[j]+1;     j: =j+1;     read(a);     end; readln(); read(a); for m: = 1 to length(s) do       begin       l: =true;       for j: = 0 to j do               if c[j] = m then l: =false;       if l then             if pos(s[m],b) < > 0 then s[m]: =a;       end; writeln(s); end.